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1 Moving Platform Left and Right 


Allows plaver to move left and right when positioned 
on a moving platform. 


Create Event: 


if instance position(x,yt1,0bj crate) 
sprite index-spr plaver walk; 


Step Event: 
if keyboard check(ord('A')) 


image xscale--1, 


if instance position(x,y+1,obj crate) 
sprite index-spr plaver walk; 


) 


else if kevboard check(ord('D')) 


image xscale-1; 


if instance position(x,vtl,obj crate) 
sprite index-spr plaver walk; 


} 


else if vspeed-0 sprite index=spr player idle 


move and collide(0, vspeed, obj crate); 
if instance position(x,ytvspeed,obj crate) 
( 

vspeed=0; 

gravity=0; 


jumps=0; 
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sprite index-spr plaver idle; 
} 


if mouse check button pressed(mb left) && 
jumps<max jumps 


{ 
jumps++; 
gravity=0.1; 
vspeed--b, 

} 


if vspeed>0 sprite index=spr player jump down; 


if vspeed<0 sprite index=spr player jump up; 


if instance position(x,v,obj crate) 


ytt; 


meeting=instance position(x, y+2,obj crate) 
if instance exists (meeting) 


( 


xt-(meeting.dirti); 
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2 Spin Around Other Instance 


Spins around another instance, keeping orientation. 


Create Event: 
ang-0; 
xpos=0; 


ypos=0; 


Step Event: 
X-MOUSE X; 
y=mouse_y; 
ang++; 


xpos-x-lengthdir x(200,ang); 


ypos-ytlengthdir v(200,ang); 
Draw Event: 


draw self(); 


draw sprite ext(spr ball,0,xpos,vpos,1,1,0,c whit 
e,1); 
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3 Vehicle With Smooth Turning 


Smooth vehicle turning, with turning wheels that 
vehicle turns into. 
Create Event: 
image angle-0; 
tyreangle=0; 
speed=1; 
max turning angle=20; 
Step Event: 
if mouse check button(mb left) 
( 
tyreangle+=0.4; 
} 
if mouse check button (mb right) 
{ 
tyreangle-=0.4; 
} 


tyreangle=clamp (tyreangle, image angle- 
max turning angle,image angletmax turning angle); 


diff-angle difference (image angle,tvreangle); 


if diff>0 
{ 
image_angle-=0.2; 
} 
if diff<0 
{ 


image_angle+=0.2; 


13 


} 


direction=image angle; 


Draw Event: 


midposx=x+lengthdir x(70,image angle); 


midposy=y+lengthdir y(70,image angle); 


leftx=midposx+lengthdir x(60,image angle-90); 


leftv-midposvtlengthdir v(50,image angle-90); 


rightx=midposx+lengthdir x(60,image angle+90); 


righty=midposy+lengthdir y(60,image angle+90); 


draw sprite ext(spr tyre,0,leftx,lefty,1,1,tyrean 
gle,c white,1), 


draw sprite ext(spr tvre,0,rightx,rightv,1,1,tvre 
angle,c white,l); 


draw self(); 
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4 Tank and Turret Movement 


Tank and turret that can be rotated separatelv. 


obj tank Create Event: 
base angle-0; 

turret angle-0; 
speed-1; 


inst=instance create layer(x,y,"turret",obj turre 
t); 


inst.owner-id; 


Step Event: 
base angle-0; 
burfet -angle=0; 
speed-1; 


ifist-instanċce. create layer(x,y, tufret",obj turre 
t); 


inst.owner-id; 


ob) turret Create Event: 


base angle-0; 
turret angle=0; 
speed-1; 


inst-instance create layer(x,y,"turret",obj turre 
t); 


inst.owner-id; 


Step Event: 


dir-point direction(x,v,mouse x,mouse v); 
diff=angle difference (turret angle,dir); 
if diffx0 


( 
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turret. anglertry 
} 
if diff>0 
{ 
turret, ang less; 
} 
X-OWNEr.X; 
y=owner.y; 
if mouse check button pressed(mb left) 


( 


xx=x+lengthdir x(120,turret angle); 


yy=y+lengthdir y(120,turret angle), 


create=instance create layer(xx,yy,'"bullet",obj b 
ullet); 


create.image angle=turret angle; 


create.direction-turret angle; 


create.speed=3; 


Draw Event: 


draw sprite ext(spr turret,0,x,v,1,1,turret angle 
,c_white,1); 
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5 Bbox Collision 


A collision svstem that uses the instance's bounding 
boxes. 


Create Event: 
movespeed=2; 


inst=noone; 


Step Event: 
left=keyboard_check (ord ("A") ); 
right=keyboard check(ord("D")); 
if left or right 

{ 


value=right - left; 


move=value*movespeed; 
inst=instance place(x+move,y,obj ball); 
if inst!=noone && right 
{ 
if bbox right>=inst.bbox left 


{ 


else if inst!=noone && left 


if bbox lefts-inst.bbox right 


X++; 
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else 


X=X+MOVE; 


} 


Draw Event: 
draw_self(); 
draw set colour (c green); 


draw rectangle (bbox left,bbox top,bbox right, bbox 
_bottom, true); 
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6 NPC That Performs Task 


A farming NPC that plants seeds, waters them and 
picks fruit. Also takes a break when they get tired. 
obj plaver Create Event: 
sprite index-spr right; 
seeds=2; 
water=20; 
crops=0; 
health=100; 
text=""; 
enum player | 
thinking, 


goingtoplant, 


goingtocollectseeds, 
plant, 
goingtowater, 
water, 
goingtocollectwater, 
collectingwater, 
goingtobreak, 
takingbreak, 


goingtoharvest 


} 
state=player.thinking 


alarm[0] = game get speed(gamespeed fps) *3; 


target=noone; 
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Step Event: 


H- 
H 
Nn 


ta 


te-plaver.thinking text="Thinking"; 


te-plaver.goingtoplant text-'Going To Plant 


te-plaver.plant text-'Planting Seed"; 


te-plaver.goingtowater tex 
Water"; 


ta 


t-'Going To 


te=player.water text-'Watering Plant"; 


te=player.goingtocollectwa 


To Collect Water"; 


if s 


if s 


if 


u 


if s 


La 


te=player.collectingwater 
Water"; 
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te=pl 


La 


te=pl 


La 


ter text="Going 


text="Collecting 


ayer.goingtobreak text="Going On 


ayer.takingbreak text="Taking Break"; 


te=player.goingtocollectse 
To Collect Seeds"; 


La 


if state=player.goingtoharvest 


( 


ds text="Going 


te=player.goingtoharvest text="Going To 
Harvest 


move towards point (target.x,target.y, 2) 


if instance position (x,y,target) 


{ 


speed=0; 


CropSs+t+; 


target.image index-0; 


target. seeds-false; 
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target.water=0; 


target.completed=0; 


target.harvest=false; 


Carget=noone,; 


state=player.thinking; 


if state=player.goingtoplant 


{ 


move towards point (target.x,target.y, 2) 
if instance position (x,y,target) 
{ 

speed=0; 


target.seeds=true; 


seeds--; 
target=noone; 


state=player.thinking; 


if state=player.goingtowater 


{ 


move towards point (target.x,target.y, 2) 
if instance position(x,y,target) 


{ 
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speed-0; 
target.water++; 


water--; 


if water<l or target.water=100 
( 
target=noone; 


state=player.thinking; 


if state=player.goingtocollectseeds 


( 


move towards point (target.x,target.y,2) 
if instance position(x,v,target) 
d 

speed-0; 

seeds=2; 

target=noone; 


state=player.thinking; 


} 
if state=player.goingtobreak 
{ 


move towards point (target.x,target.y, 2) 


if instance position (x,y,target) 
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if health-100 state-plaver.thinking; 


if state-plaver.goingtocollectwater 


( 


move towards point (target.x,target.y,2) 
if instance position(x,v,target) 
( 

speed-0; 

watert+t 


if water=100 state=player.thinking; 


} 
if hspeed>0 sprite index-spr right; 
else 


sprite index-spr left 


if speed=0 image speed=0; else image speed-1; 


Alarm 0 Event: 
alarm[0] = game get speed(gamespeed fps); 
health--; 


health=clamp (health,0,100); 


if state=player.thinking 
{ 


move towards point (obj cafe.x,obj cafe.y,3); 
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if distance to object (obj -cafe) <5 speed-U; 


if health==0 && state=player.thinking && seeds>0 
{ 

state=player.goingtobreak; 

target=obj cafe; 
} 


task-choose ("harvest","collectwater","plant","col 
lectseeds","water"); 


if task="harvest" 
if state=player.thinking 
( 
with (obj crop) 
( 
if (harvest) 
( 
show debug messaġe ("To Harvest") 


other.state-plaver.goingtoharvest; 


other.target=id; 


break; 


} 


show debug message ("Alarm") 
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if task="collectwater" 


if state-plaver.thinking && water<=0 


( 


state-plaver.goingtocollectwater; 


target-obj water; 


if task-'plant' 


if state-plaver.thinking && seeds>0 


( 


with (obj crop) 


show debug message ("Found Target") 


other.state-plaver.goingtoplant; 


other.target=id; 


break; 


} 


show debug message ("Alarm") 


if task-'collectseeds' 


if state=player.thinking && seeds=0 


{ 


state=player.goingtocollectseeds; 


target-obj shop; 
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if task="water" 
if state=player.thinking && water>0 
{ 

var i, insts_ok; 

insts ok-arrav create(); 

i = 0; 

with (obj crop) 

{ 


if (seeds=true ga water<100 && 
harvest==false) 


} 
if array length(insts ok) l-0 
if insts ok[0]!-noone 
( 
size-arrav length(insts ok)-1; 


choice-irandom(size); 


tarġet-insts -ok[ choice] 
state=player.goingtowater; 


show debug message (target), 


} 


Draw Event: 
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draw self(); 
draw set colour(c white); 


draw rectangle (50,500, 430, 730, false); 


draw _set_font (font_text); 


draw set halign(fa left); 


draw set valign(fa top); 


draw set colour(c black); 
draw text (50,500,text); 
draw Sec. Co Loum (c_blue); 


N 


draw text (50,560 


,"Seeds "+string(seeds)); 


draw_text(50,600,"Health "+string (health) ); 


N 


draw text (50, 640 


r'Water "+string(water)); 


draw text (50,680, 'Carrving "+string(crops)); 
obj crop Create Event: 

image index-0; 

image speed-0; 

seeds-false; 

water=0; 

completed=0; 

harvest=false; 

alarm[0] = game get speed(gamespeed fps)/4; 
Alarm 0 Event: 

alarm[0] = game get speed(gamespeed fps)/4; 
if seeds and water>0 and completed<=100 


i 
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completed+=0.5; 


water--; 


; 
if completed>=100 


i 


harvest=true; 


; 


Draw Event: 
draw sprite(spr soil,0,x,v); 


draw self(); 


if seeds && round(completed) !=100 
{ 
text="GROWING"; 
} 
else if !seeds 
{ 
text="WAITING TO SOW" 
} 
else if harvest 


{ 


text="READY TO HARVEST"; 


draw set halign(fa center); 


draw set valign(fa middle); 
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draw healthbar (x-50,v-60,x450,v- 
30,completed,c black,c maroon,c maroon,0,true,tru 
e); 


draw set font(font info); 


draw set colour(c white); 
draw text(x,v-45, "GROWTH") ; 


draw healthbar (x-50,v-100,x450,v- 
70 ,water,c black,e blue,c blue,0,true, true) ; 


draw set font(font info); 


draw set colour(c white); 


draw text(x,v-85, "WATER") ; 
draw set colour(c black) 
draw text (x, y+40,text); 
if seeds && completed=0 
{ 
image index=1; 
} 
else 
if seeds && round (completed=100) 
{ 
image index-6; 
harvest=true; 
} 
else if seeds && completed>75 
{ 
image index=5; 
} 
else if seeds && completed>50 


{ 
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image index-4; 
} 
else if seeds && completed>25 
{ 
image index=3; 
} 


else if seeds && completed>25 


{ 


image index=2; 
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7 Wall Jumping 


Allows a player to jump off a wall. 


Create Event: 
gravity=0.1; 
jumps=0; 

max jumps=1; 
hsp=2; 

VSp=2; 


move=false; 


Step Event: 
if !place meeting (x, yt+tvsp,obj crate) 
{ 
gravity=0.1; 
} 
if place meeting (x, y+vspeed, obj crate) 
{ 
vspeed=0; 
gravity=0; 
jumps=0; 
} 
if place Meeting (x, yl, Ody crave): y=; 


if mouse check button pressed(mb left) && 
jumps<max jumps 


{ 
jumps++; 
gravity=0.1; 


vspeed=-6; 
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} 
if keyboard check (ord("A") ) 
{ 
hsp=-2; 
} 
else if keyboard check(ord("D")) 
{ 
hsp=2; 
} 
else hsp=0; 
if !place meeting (xthsp, y,ob] crate) 
{ 
x+=hsp; 
} 


if place meeting(xthsp,y,0bj crate) ss 
mouse check button pressed(mb left) && 
(keyboard check(ord("A")) or 
keyboard check (ord("D"))) 


( 
jumps++; 
gravity=0.1; 
vspeed=-6; 
move=true; 


alarm[0]-game get speed (gamespeed fps) /2; 


if hsp>0 dir--1, 


if hspx0 dir-1; 


if move 
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xt=dir*3; 
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8 Temporarv Weapon Upgrade Svstem 
Temporarilv upgrades a plaver's weapon svstem. 


Create Event: 
weapon1=128; 
weapon2=256; 
weapon3=364; 
active=false; 
Step Event: 


if mouse check button pressed(mb left) 


( 
active-true; 


alarm[0]-game get speed (ġàmespeed fp5) *5; 


} 
y=mouse_y; 


if mouse check button pressed(mb right) 


inst-instance create layer(x,y, "bullets",obj bull 
et); 


inst.direction-0; 


inst.speed-3; 


if active 


inst=instance_create_layer (x, y- 
weapon1,"bullets",obj_bullet); 


inst.direction=0; 
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inst.speed=5; 


inst-instance create layer(x,yt+tweaponl, "bullets", 


obj bullet); 


inst 
inst 


inst 
weapon2, "bullet 


ins 


inst 


.direction-0; 


.speed=5; 


=instance create layer (x, y- 
", Ob] missile), 


.direction-0; 


. speed=6; 


INSt= Instance cr 


obj missile); 


inst 
inst 


inst 
weapon3, "bullet 


inst 


inst 


inst=instance Cf 


ate layer(x,ytweapon2, "bullets", 


.direction-0; 


. speed=6; 


=instance create layer (x, y- 
",obj laser); 


.direction-0; 


. speed=8; 


obj laser); 


inst 


ins 


} 
Alarm 0 Event: 


active=false; 


Draw Event: 


ate layer (x, ytweapon3, "bullets", 


.direction-0; 


. speed-8; 
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draw self(); 
if active 


( 


draw sprite ex 


weaponl,1,1,0 


draw sprite 
weapon2,1,1,0 


draw sprite 


weapon3,1,1,0 


draw sprite ex 


1,0,c white,1 


t(spr g 
Yi 
_ext (spr g 
1); 

t(spr_g 


0,x,ytweapon 


0,x,ytweapon 


0,x,ytweapon 


1X, YT 


1X, YT 


(EZ YT 


H 
` 
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9 Plaver Shield Svstem 


Gives a plaver a shield that prevents it taking damage. 


obj plaver Create Event: 
health-1000; 


active=false; 


Step Event: 
if mouse check button(mb left) 


{ 
active=true; 


mask index-spr sheild; 


else 


active=false; 
mask index-spr plaver; 
j 
Draw Event: 
draw text(x,v-180, "Health "+string(health) ); 
draw self(); 
if active 
( 
draw sprite ext(spr sheild,0,x,v,1,1,0,c white,0. 
2); 


} 
Collision with obj_missile Event: 
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with other instance destrov(); 


if active 


( 


effect create above(ef explosion,other.x,other.v, 
4,c green); 


else 


health--; 


effect create above(ef explosion, other.x,other.y, 
4,c red); 


} 
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10 Sprite Stacking Fake 3D 
A fake 3D effect bv stacking sprites. 


Draw Event: 


dir-point direction(x,v,obj plaver.x,obj plaver.v 
); 


draw self(); 

dist-10; 

for (var i = 0; i < 10; i += 1) 
{ 


xpos-x-lengthdir x(dist'i,dir-180); 


ypos=y+lengthdir y(dist*i,dir-180); 


//draw circle(xpos,ypos,6,false); 


draw sprite ext(sprite index,0,xpos,vpos,l- 
(0.1*i),1-(0.1*i),0,c_white,1-(0.1*i)); 


} 
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11 Water Reflection Using Effect Lavers 


Creates a cool looking water reflection effects using 
effect lavers. 


Requires an underwater effect layer above “reflect” 
layer. 


Create Event: 


inst=instance create layer(x,y,"reflect",ob] refl 
ect); 


inst.sprite index-sprite index; 


inst.image yscale--1, 
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12 Magnet Svstem 


A magnet svstem that pulls the plaver towards it if thev 
get too close. 


obj magnet Create Event: 
range=250; 
dir=0; 


Step Event: 


dir-point direction(x,v,obj plaver.x,obj player.y 
); 


image angle-dir; 

"EE 

point distance(x,y,obj plaver.x,obj player.y)<ran 
ge 


( 
with obj plaver 
( 
motion add(other.dir-180,1); 


} 


Draw Event: 
draw_circle(x,y,range, true) ; 


draw_self(); 


obj_player Step Event: 
if keyboard check (ord("W") ) 
{ 

motion add(90,1); 
} 
if ‘keyboard check (ord ("Ss") 
{ 

motion add(270,1); 
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} 
if keyboard check (ord("A") ) 
{ 

motion add(180,1); 
} 
if keyboard chećk(órd("D")) 
{ 

motion add(0,1); 


if x>room width 
{ 
x-room width; 
speed=0; 
} 
if y<0 
{ 
y=0; 
speed=0; 
} 
if y>room_height 
{ 
y=room height; 
speed=0; 
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13 Health Heart Part Svstem 


Draws plaver's health using a full and part sprite. 


Create Event: 


health-50; 


Step Event: 
if mouse check button pressed(mb left) 
( 

health—-; 
} 
if mouse check button pressed(mb right) 
{ 

health++; 


} 


health=clamp (health,0,50); 


Draw Event: 


var full=health div 4; 


var part=health mod 4; 
var xpos=50; 

var ypos=300; 

var gap=65; 


for (var i = 0; i Hull, i += 1) 


draw sprite(spr heart, 4,xpos+(gap*i),ypos); 
} 
var partxpos=xpos+ (gap*full+1) 


draw sprite(spr _heart,part,xpos+(gap*i) ,ypos); 
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draw text (100,100, "Health "+string(health) ); 
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14 Tap To Move Svstem 


Tapping a mouse button move the plaver, the faster the 
taps the faster it moves. 


Plaver Create Event: 


global. spd-0; 


Step Event: 
if mouse check button pressed(mb left) 
( 
global.spd+=0.2; 
} 
if mouse check button pressed(mb right) 
{ 
global.spd+=0.2; 
} 
global.spd-=0.03; 


global. spd-clamp (global.spd,0,10); 


image speed-global.spd/4; 

Draw Event: 

draw self(); 

draw text (50,100, "Speed "+string(global.spd) ); 
Crate Create Event: 

global. spd-0; 

Step Event: 

x-=global.spd/2; 


if x<-128 x=room width+128; 
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15 Resize Sprite 


Allows the plaver to resize a sprite. 


Create Event: 
click-false; 
anchorx-0; 


anchorv-0; 


Step Event: 
if mouse check button(mb left) and click—-false 
( 
anchorx-mouse xX; 
anchory-mouse vi 
click-true; 
} 
if mouse check button(mb right) && click 
( 
click-false; 


} 


Draw Event: 
if click 
{ 
x-anchorx; 
v-anchorv; 


xscale- (mouse x-anchorx)/64; 


yscale- (mouse y-anchory) /64; 


draw sprite ext (sprite index, 0,anchorx, anchory, xs 
cale,vscale,0,c white,1), 
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else 


X-MOUSE x; 
y=mouse_y; 


draw _self(); 
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16 Moving Platform Up and Down 


Allows plaver to move up and down when positioned 
on a moving platform. 


Create Event: 
gravitv-0.1; 
jump=0; 
max jumps=2; 
Step Event: 
move and collide(0, vspeed, obj crate), 
if instance position (x, y+tvspeed,ob] crate) 
{ 
vspeed=0; 
gravity=0; 
jumps=0; 
sprite index-spr player idle; 
} 


if mouse check button pressed(mb left) && 
jumps<max jumps 


{ 
jumps++; 
gravitv-0.1; 
vspeed=-6; 

} 


if vspeed>0 sprite index=spr player jump down; 


if vspeed<0 sprite index=spr player jump up; 


if instance position(x,y,obj crate) 
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} 


if !instance position(x,y+1,obj crate) 


Vtt: 
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17 Rotating Wheel 


A nice visual method of a choosing a random result. 


obj_hud Draw Event: 


draw set colour(c white); 


draw set alpha(1); 


xx-(room width/4*3) ; 


draw set font (font hud) ; 


//draw minis 


if obj wheel.type="TNT" 
draw sprite(mini tnt,0,xx,400); 


if obj wheel.type="BOMB" 
draw sprite(mini bomb,0,xx,400); 


if obj wheel.type="CHEST" 
draw sprite(mini chest,0,xx,400); 


if obj wheel.type="COINS" 
draw sprite(mini coins,0,xx,400); 


if obj wheel.type="BOX" 
draw sprite(mini gift,0,xx,400 


[a 
<~ 
me 


if obj wheel.type="BOTTLE" 
draw sprite(mini bottle,0,xx,400); 


if obj wheel.type="ROCKET" 
draw sprite(mini rocket,0,xx,400); 


if obj wheel.type="STAR" 
draw sprite(mini star,0,xx,400); 


if obj wheel.result!="" 


( 


draw set color(c black) 
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draw text (xx,550,"RESULTNn"+obj wheel.result); 
} 
obj] button Create Event: 
global.can_spin=true 


can end-true; 


Step Event: 


if mouse check button pressed(mb left) && 
global.can spin 


( 


obj wheel.result=""; 


global.can spin-false; 


obj wheel.angle speed-random range(3,5); 


obj wheel.alarm[0]=room speed*random range (2,5); 
} 


Draw Event: 


if mouse check button pressed(mb left) && 
Global. Gan spin 


{ 


obj_wheel.result=""; 


global.can spin-false; 


obj wheel.angle speed-random range(3,5); 


obj wheel.alarm[0]=room_speed*random_range(2,5); 
} 

obj_wheel Create Event: 

angle speed=0; 

image angle=0; 


type="TNT"; 
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global. sound-audio play sound(snd wheel,1,true); 


result-''; 


Step Event: 
if angle speed>0.05 
{ 


if audio is paused (global. sound) 
audio resume sound (global. sound); 


audio sound pitch( global.sound,angle speed); 
} 


else audio pause sound (global. sound) 


image anglet-angle speed; 


image angle-image angle mod 360; 


if image angle>=1 and image angle<=44 type="INT"; 


if image angle>=45 and image angle<=89 
type="ROCKET"; 


if image angle>=90 and image angle<=132 
type="STAR"; 


if image angle>=133 and image angle<=178 
type="CHEST"; 


if image angle>=179 and image angle<=223 
type="BOTTLE"; 


if image angle>=224 and image angle<=269 
type="BOMB"; 


if image angle>=270 and image angle<=314 
type="BOX " ; 


if image angle>=315 and image angle<=359 
type="COINS"; 


if image angle-0 type="COINS"; 


Alarm 0 Event: 
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if angle speed>0.05 


{ 


angle speed=ańgle speed* 0.8; 


alarm[0]=room speed*random range (1,3); 


if angle speed<=0.05 && angle speed!=0 


{ 


angle speed=0; 


audio pau 


if 


if 


if 


if 


if 


if 


if 


dik 


obj 
obj 
obj 


obj 


obj 


obj 


obj 


obj 


_wh 
_wh 
_wh 


_wh 


_wh 
_wh 


_wh 


wh 


se sound (global. sound) 


eel 


eel 


eel 


eel 


eel 


eel 


eel 


eel 


.type- "COINS" 
.type- "ROCKET" 
.type=" STAR" resul 
.type=" BOMB" resul 


. type=" CHEST" 


global.can spin-true; 


} 


Draw Event: 


draw_self(); 


draw set color(c white); 


mult= 


repeat 8 


posx-x-l 


il; 


y+l 


eng 


eng 


result="COINS"; 


res 


ult="ROCKET";; 


t="STAR"; 


t="BOMB"; 


result="CHEST"; 


thdir x(490,45*mult); 


thdir y(490,45*mult); 


.type="TNT" result="TNT"; 


.type="BOX"result="BOX"; 


.type="BOTTLE"result="BOTTLE"; 
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draw line width(x,v,posx,posv,4); 


mult++ 


//slot 1 


coins-mini coins; 


xx-lengthdir x(320,image angle+22) 


vv-lengthdir y(320,image angle+22) 


draw sprite ext(coins,0,x+xx,ytyy,1,1,image angle 
+22,c white,1); 


//slot 2 


gift=mini gift; 


xx-lengthdir x(320,image angle+67) 


vv-lengthdir y(320,image angle+67) 


draw sprite ext(gift,0,x-xx,vtvv,1,l,image angle+ 
67,c_white,1); 


//slot 3 
bomb=mini bomb; 


xx=lengthdir x(320,image_angle+112) 


yy=lengthdir y(320,image_angle+112) 


draw sprite ext (bomb, 0,x+xx,ytyy,1,1,image_anglet 
112,6 white; 1); 


//slot 4 
bottle-mini bottle; 


xx-lengthdir x(320,image angle+158) 


vv-lengthdir y(320,image angle+158) 
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draw sprite ext (bottle,0,xtxx,ytyy,1,1,image angl 
e+158,c_white, 1); 


//slot 5 


chest=min 


xx=] 


vy=l 


eng 


eng 


th 


th 


i chest; 


dir x(320,image angl 


dir y(320,image angl 


e+203) 


e+203) 


draw sprite ext(chest,0,x+xx,ytyy,1,1,image angle 


4203,c wh 


//slot 6 


ite,1); 


stat-mini star; 


xx=] 


vy=l 


draw sprit 


eng 


eng 


thdir x(320,image angl 


thdir v(320,image angl 


250,c white,l); 


//slot 
rocket 


xx=] 


yy=l 


eng 


eng 


sb 


t-mini rocket; 
thdir x(320,image angl 


thdir v(320,image angl 


e+250) 


e+250) 


te ext (star,0,x+xx,ytyy,1,1,image angle+ 


e+295) 


e+295) 


draw sprite ext (rocket,0,xtxx,ytyy,1,1,image angl 
eFZJOyC WRITE, Lb 


//slot 8 


tnt=mini tnt; 


xx=] 


vy=l 


eng 


eng 


thdir x(320,image angl 


thdir y(320,image angl 


draw sprite ext(tnt,0,x+xx,y1 
40,c white,1); 


e 


e 


+340) 


+340) 


kyy,1,1,image angle+3 
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18 Fake 3D 


A fake 3D effect using image scaling. 


obj_car Create Event: 


global.mid point=room width/2; 


Step Event: 


x=clamp (x,100,room width-100); 


if mouse check button (mb left) 
( 
KEY 


with (obj tree) 


x+=2; 


else if mouse check button (mb right) 


( 


x+=2; 


with (obj tree) 


X-=2; 


if x<global.mid point x++; 


it zx global mid point x-4; 
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diff-abs (x-global.mid point); 


if x<global.mid point 


{ 
image angle=90+(diff/12); 


} 


if x>global.mid point 
{ 

image angle=90-(diff/12); 
} 


obj_tree Create Event: 
image speed=0; 

image index=irandom(1) ; 
vspeed=1; 

size=0; 

Step Event: 
size+=0.005; 
vspeed+=0.004; 


if size>3 size=3; 


diff-abs (x-global.mid point); 


if x<global.mid point x-=diff/1000; 


if x>global.mid point x+=diff/1000; 


Draw Event: 


draw sprite ext (sprite index,image index,x,v,size 
;size,0,c white,l); 


obj spawner Create Event: 


alarm[0]=game get speed(gamespeed fps); 


obj spawn Create Event: 


57 


alarm[0]=game get speed (gamespeed fps); 


Alarm 0 Event: 


alarm[0]=game get speed(gamespeed fps); 
var xpos-irandom range (-400, room width+400); 


instance create laver(xpos,- 
100, 'Instances'',0bj tree); 
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19 Flame Effect Using Particles 


A cool flame effect with low overhead. 


Create Event: 


flameSystem = part system Create (); 


flameParticle = part type create(); 


part type size(flameParticle, 20, 5, 0, 0); 


part type color3(flameParticle, c red, c orange, 
c vellow); 


part type alpha3(flameParticle, 1, 0.5, 0); 


part tvpe speed(flameParticle, 1, 2, 0, 0); 


part type direction (flameParticle, 60, 120, 0, 


part type gravity(flameParticle, -0.01, 270); 


part type life(flameParticle, 40, 60); 


part type blend(flameParticle, true); 
Step Event: 

part particles create(flameSystem, x, y, flameParticle, 10), 
Draw Event: 


draw self (),: 


part system drawit (flameSvstem); 


59 


20 Rotating Spaceship With Inertia 


Retro stvle spaceship movement. 


Create Event: 
dir-0; 
friction-0.005; 
Step Event: 
if keyboard check (ord("W") ) 
{ 
motion add(dir,0.1); 
} 
if keyboard ‘check (ord ("A")) 
{ 
dir++; 
} 
if keyboard check (ord ("D") ) 
{ 
diċ--; 
} 
image angle=dir; 
move_wrap (true, true, 0); 


speed=clamp (speed, 0,4); 
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21 Rotating Ship Weapon and Manuallv 
Select Target 


A rotating ship with targeting weapon svstem. 


obj ship Create Event: 


turret-instance create depth (x-45,v,- 
1,0bj turret); 


turret.targetCol-0; 


turret.parent=id; 


turret.target=noone; 


turret.len to par=point distance (x,y,turret.x,tur 
ret.y); 


turret.start angle-(point direction(x,y,turret.x, 
turret.y)-180); 


turret.angle diff=angle difference (0,image angle) 


Step Event: 


if keyboard check (ord ("A"))):{ 


image angle--1; 


if keyboard check(ord("D")){ 


image_angle-=1; 


if keyboard check(ord("W")){ 


motion add(image angle,2); 
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if speed>2 speed=2; 


friction=0.02; 


obj_target Step Event: 


if 
collision circle(x,y, sprite width/2,obj mouse, fal 
se, true) 


{ 
if mouse check button pressed(mb left) 


( 


if (obj. mouse. turret != noone) 
{ 
if (obj mouse.turret.target != id) 
( 
obj mouse. turret .target = id; 
} 
else 


if (obj_mouse.turret.target == 
id) 


obj mouse.turret.target = 
noone; 
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} 


Collision with obj_laser: 


if other.target=id 
{ 


instance destroy (other); 
} 
obj_turret Create Event: 
image speed=0; 


selected=true; 


Can _ shoot=true; 


Step Event: 
if selected == tru 
{ 
obj mouse.turret = id; 


if targetl-noone 


( 


dir-point direction(x,v,target.x,target.v); 


diff=angle difference (image angle,dir); 


if diff<0 image angle++; 


if diff>0 imaqe angles-) 
if can shoot 


( 
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laser-instance create depth(x,y,- 
2,0bj laser); 


laser.x=x+lengthdir x(100,image angle); 


laser.y-ytlengthdir y(100,image angle); 


laser.target-target; 
laser.image angle-image angle; 


laser.speed-5; 


laser.direction-image angle; 
audio play sound(snd laser,0, false); 


can shoot-false; 


alarm[0]=game get speed (gamespeed fps); 


} 


End Step Event: 


x=parent.x+lengthdir x(len to par, 
(angle diff-parent.image angle)); 


y-parent.ytlengthdir v(len to par, 
(angle diff-parent.image angle)); 


Alarm 0 Event: 
can shoot-true; 
Draw Event: 
draw self(); 


if (target l- noone) 


( 


draw sprite(spr selected, targetCol,target.x, 
target.y); 


} 
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22 Destructible Terrain 


Allows bombs to destrov terrain. 
obj bomb Step Event: 
V+=8; 


obj_terrain Create Event: 


w = sprite width; 


h = sprite height; 

surface = surface _ create (w,h); 
surface Sel _ target (surface); 
draw sprite(spr terrain,-1,0,0); 
Surtaċc TESEL EE 


spr-sprite create from surface (surface,0,0,w,h,tr 
ue,true,0,0); 


sprite index-spr; 
Step Event: 
if !surface_ exists (surface) 


{ 


surface = surface create (wilh); 


surface set _ target (surface); 
draw sprite(spr,-1,0,0); 


sSutrace feset-tatġeti)j 


if mouse check button pressed(mb left) 
instance create layer (mouse x,mouse y, "Instances" 
„obj bomb); 


Collision with obj bomb: 
surface _ Seu _ target (surface); 
draw set color(c white); 


draw circle (other.x-x, other.y-y, 46,0); 
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suttaċe xęset _ target (); 
sprite _ delete (spr); 


spr-sprite create from surface (surface,0,0,w,h,1, 
1,0,0); 


sprite index-spr; 
with other instance destrov(); 


Room End Event: 


surface _ free (surface); 
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23 Horizontal Scrolling Menu 


A simple adaptable scrolling menu. 


obj button Create Event: 
xpos=0; 

middle=room width/2; 
xtarget=0; 

button size-200; 


no. of -buttons=6; 


button [1]="MENU"; 
button [2]="OPTIONS"; 
button [3]="PLAY"; 
button [4]="SAVE"; 
button[5]="CREDITS"; 
button[6]="EXTT"; 
button posh 

Step Event: 


xpos=clamp (xpos,- (no of buttons*button size) 
tbutton size,0), 


xtarget-clamp (xtarget, — 
(no of buttons'button size)tbutton size,0); 


if mouse wheel up() 44 xpos=xtarget 
( 
xtarget=xtarget button size; 
} 
if mouse wheel down() && xpos=xtarget 


{ 


xtarget=xtarget+button size; 


if xpos>xtarget 
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XpOS-=2; 
} 
if xpos<xtarget 
{ 
XpOSt=2; 
} 


button pos-floor (abs (xpos/button size) ) +1; 


if mouse check button pressed(mb left) && 
xpos=xtarget 


( 
if button pos-l 


( 
//do something 


textmake-instance create layer (middle,room height 
/2, "hud", ob}. funky text); 


textmake.text=button [button pos] 
} 
if button pos-2 
{ 

//do something 


textmake=instance create layer (middle, room height 
/2, "hud", ob). funky text); 


textmake.text=button [button pos] 


} 
if button pos=3 


{ 
//do something 
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textmake-instance cr 


at 


te layer (middle, room height 


/2, had" ob): funky. t 


textmake.text 


if button pos-4 


//do somethin 


textmake=instance cr 


ex 


=b 


g 


t); 
utton[button_pos] 


al 


te layer (middle, room height 


/2,"hud",obj funky t 


textmake.text 


} 
if button pos-5 


{ 
//do somethin 


textmake-instance cr 


ex 


=b 


g 


SE 
utton[button pos] 


at 


te laver(middle,room height 


7/2ę'hQd",0DJ. Funky t 


textmake.text 
} 
if button pos-6 
{ 

//do somethin 


textmake=instance cr 


ex 


=b 


g 


t); 
utton[button pos] 


at 


te layer (middle,room height 


/2, "hud", obj_funky t 


textmake.text 


ex 


=b 


t); 
utton[button_pos] 
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Draw Event: 


var ypos=room height/2; 


draw set font(font button); 


draw set colour(c black); 


draw set halign(fa center); 


draw set valign(fa middle); 
for (var i = 0; i <no of buttons; i += 1) 
( 


if i-button pos-1 && xpos-xtarget 
draw sprite(spr button,1,middletxpost 
(button sizeti),vpos); 


else draw sprite(spr button,0,middletxpost 
(button sizeti),vpos); 


draw text (middletxpost 
(button _size*i) ,ypos,button[i+1]); 


draw set font(font text); 


draw set colour(c white); 


if xpos-xtarget 
( 


draw text (650,middle, "Tap Now To Select 
"+button[button_pos]); 


} 
draw text (200,200,button pos); 


obj funkv text Create: 

size=0.2; 

fade size=5;//size to reach before fading 
fade speed=0.01;//how quickly to fade 
angle=0; 

sw=2;//for sine wave 


fading=false; 
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alpha=1; 

Step Event: 
size+=0.1;//increase size 
y-=0.3;//move up 

swt+=0.2; 


angle=sin(sw)*5;//for wave effect 


if size>fade size and fading==false//allowq 
fading 


( 
alpha-=fade speed, 
if alpha<0 instance destroy(); 


} 


Draw Event: 


draw set. font (font. text); 


draw set halign(fa center); 


draw set valign(fa bottom); 
draw set alpha (alpha); 
draw set colour(c white); 


draw text transformed(x,v,text,size,size,angle); 


draw set alpha(1);//set back so noting else 
affected 
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24 Vertical Scrolling Menu 
A simple adaptable scrolling menu. 


obj button Create Event: 
ypos=0; 


middlex=room width/2; 


middlev-room height/2; 
ytarget=0; 
button _size=70; 


no of buttons=6; 


button [1]="MENU"; 
button [2]="OPTIONS"; 
Butbon[3] "PLAY": 
button [4]- "SAVE", 
button[5]- "CREDITS", 
button[6]="EXIT"; 
button pos-1; 

Step Event: 


ypos=clamp (ypos,- (no of buttons*button size) 
+button_size,0); 


ytarget-clamp (ytarget, — 
(no of buttons'button size)+button_size,0); 


SE 


if mouse wheel up() 44 vpos-vtarget 


( 


ytarget=ytarget-button size; 
} 
if mouse wheel down() && ypos=ytarget 


{ 


ytarget=ytargettbutton size; 


72 


if ypos>ytarget 
( 

ypos-=2; 
} 
if ypos<ytarget 
{ 

ypost=2; 
} 


button pos-floor (abs (ypos/button_size))+1; 


if mouse check button pressed(mb left) && 
ypos=ytarget 


{ 
if button pos-l 
{ 
//do something 


textmake=instance_create_layer (middlex,middley, "h 
ud",obj funky text); 


Lextmake .text=butcon|buttom pos] 
} 
if button pos-2 
{ 

//do something 


textmake=instance create layer (middlex,middley,"h 
ud",obj funky text); 
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textmake.text=button [button pos] 
} 
if button. pos=3 
( 


//do something 


textmake=instance create layer (middlex,middley,"h 
ud",obj funky text); 


textmake.text-button[button pos] 
} 
if button_pos=4 
{ 


//do something 


textmake=instance create layer (middlex,middley,"h 
ud",obj funky text); 


textmake.text=button [button pos] 
} 
if button pos-5 
{ 


//do something 


textmake=instance create layer (middlex,middley,"h 
ud",obj funky text); 


textmake.text=button [button pos] 
l 
if button pos=6 
( 


//do something 
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textmake=instance create layer (middlex,middley,"h 
ud",obj funky text); 


textmake.text=button[button pos] 


} 


Draw Event: 


draw set font(font button), 


draw set colour (c _ black); 


draw set halign(fa center); 


draw set valign(fa middle); 


for (var i = 0; i <no of buttons; i += 1) 


{ 


if itl-button pos && vpos-vtarget 
draw sprite(spr button,l,room width/2,middleytypo 
ST (button. sizeti))i 


else 
draw sprite(spr button,0,room width/2,middleytypo 
s+ (button _size*i)); 


draw text (room width/2,middley+ypos+ 
(button _ size*i),button[i+1]); 


draw _set_font (font_text); 


draw set colour(c white); 


if vpos-vtarget 
( 


draw text (1050,300, "Tap Now To Select 
"t+tbutton [button posl)); 
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} 


draw text (200,200,button pos); 


obj funkv text Create: 

size=0.2; 

fade size=5;//size to reach before fading 
fade speed=0.01;//how quickly to fade 
angle=0; 

sw=2;//for sine wave 

fading=false; 

alpha=1; 

Step Event: 

size+=0.1;//increase size 
y-=0.3;//move up 

swt=0.2; 


angle=sin(sw)*5;//for wave effect 


if size>fade size and fading==false//allowq 
fading 


( 
alpha--fade speed; 
if alphasU instance destroy(); 


} 


Draw Event: 


draw_set_font(font_text); 


draw set halign(fa center); 


draw set valign(fa bottom); 


draw set alpha (alpha), 


draw set colour(c white); 


draw text transformed(x,v,text,size,size,angle); 


draw set alpha(1);//set back so noting else 
attected 
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25 Ladder Climbing 


Allows a plaver to climb a ladder. 


Create Event: 
gravitv-0.1; 
jumps=0; 

max jumps-1; 
hsp=2; 

VSp=2; 
move=false; 


onladder=false; 


Step Event: 
if !place meeting(x,ytvsp,obj crate) && !onladder 
{ 


gravity=0.1; 


E 


Ju. 


onladder gravity=0; 


E 


if 


place meeting (x,ytvspeed,obj crate) 
( 

vspeed=0; 

gravity=0; 

jumps-0; 
} 


E 


if place meeting(x,ytl,obj_ crate) y--; 


if mouse check button pressed(mb left) && 
jumps<max jumps 


f 
jumps++; 


gravitv-0.1; 
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vspeed—-6; 
} 
if keyboard_check(ord("A") ) 
{ 
hsp=-2; 
} 
else if keyboard check (ord("D") ) 
{ 


hsp=2; 


else hsp=0; 


if !place meeting (xthsp, y,obj_ crate) 


xt=hsp; 
} 


if place meeting(xthsp,y,obj crate) && 
mouse check button pressed(mb left) sas 
(keyboard check(ord('A')) or keyboard check(ord("D"))) 


( 
jumps++; 
gravity=0.1; 
vspeed=-6; 


move=true; 


alarm[0]=game get speed(gamespeed fps) /2; 


if hsp>0 dir=-1; 


if hspx0 dir-1; 


if move 


xt+=dir*3; 
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} 


if place meeting(x,y,obj ladder) && 
keyboard check (ord('W')) && !place meeting (x, y- 
1,0bj crate) 


{ 
onladder-true; 
vspeed=0; 
Mie 

} 


if place meeting(x,y,obj ladder) && 
keyboard check(ord("S")) 


( 


onladder-true; 


ytt; 
vspeed=0; 
} 


if onladder 66 !place meeting(x,v,obj ladder) 


( 


onladder=false; 


} 
Alarm 0 Event: 


move=false; 
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26 Attack Left and Right 


An attacking svstem that attacks in the direction the 
plaver is facing, then in the opposite direction. 
Create Event: 


attack=0; 


Step Event: 
if keyboard check pressed(ord('A')) && attack== 
{ 
image xscale=-1; 
} 
if keyboard check pressed(ord("D")) && attack==0 
{ 
image xscale=1; 
} 


if mouse check button pressed(mb left) && 
attack== 


{ 
sprite index=spr attack; 
image index=0; 
attack+t=1; 


} 


Animation End Event: 
if attack== 
{ 
image xscale*=-1; 
attack=2; 


exit; 
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} 

if attack== 

{ 
image xscale*=-1; 
attack=0; 
sprite index=spr idle; 


exit; 
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27 Moving Grass 


Makes grass move on collision with plaver. 


Create Event: 
ang-choose (30,-30); 
dir-choose(-1,1); 
spd-1000; 

dist-60; 


sprite index=choose(spr_grassl,spr grass2,spr gra 
ss3); 


spd=spd+ (irandom range (spd-100,spd+100)); 
image angle=90; 

Step Event: 

if instance place (x,y,obj player) 


( 


if dir== 
image angle-(angtsin (current time/spd) *dist) +60; 
if dir==-1 
image angle=(ang-sin(current time/spd) *dist) +60; 
} 
else 


if image angle>90 image angle--; 


if image angle<90 image angle++; 


if floor(image angle)=90 


ang=choose (30,-30); 
ang-choose (30,-30); 
II 
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28 Target Enemy With Highest HP 


This seeks out and targets the instance(s) with the 
highest hp. 


obj enemy Create Event: 

hp=100; 

can hit=true; 

Alarm 0 Event: 

can hit-true; 

Draw Event: 

draw self(); 

draw text (x,v-100, "HP "+string (hp) ); 
Collision With obj plaver: 


draw self(); 
draw textix,v-lo0,'HP "+string (hp) ); 


obj_player Create Event: 
target=noone; 


alarm[0]=game get speed(gamespeed fps); 


Step Event: 
if instance exists (target) 


{ 


move towards point (target.x,target.y,5); 
} 
Alarm 0 Event: 


var i, lim, pq, insts sorted; 
pq = ds_priority_create(); 


with (obj_enemy) { 
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ds priority add(pq, id, hp); 
} 
lim =-ds:priórity size (pq); 


for (ai = 09a, € Dame ai = 271 „4 


insts sorted[i] = ds priority delete max(pq); 


} 
ds priority destroy (pa): 


target-insts sorted [0]; 


alarm[0]=game get speed(gamespeed fps) *4; 
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29 Rotating Mini Map 


A mini map that rotates based on plaver's direction. 


obj map Create Event: 


global.rotate-true; 


Draw GUI Event: 


var px-obj plaver.x; 


var pv-obj plaver.v; 
draw set colour(c blue); 


draw circle(100,100,5,false); 


with (obj block) 


( 


var dist-point distance (px,py,x,y) 
if dist<=500 
( 

dist=dist/500*50; 

if global.rotate==true 

( 


angle=point direction(px,pv,x,v)- 
obj plaver.direction; 


draw sprite ext(spr blip,0,100-lengthdir x(dist,a 
ngle), 100+lengthdir v(dist,angle),1,1,360- 
obj plaver.direction,c white,l); 


else 
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angle=point direction(px,py,x,y)?: 


draw sprite(spr blip,0,100+lengthdir x(dist,angle 
), 100+lengthdir y(dist,angle)); 


} 


draw set colour(c white); 


draw set: font (font text); 


draw text (50,150, "Move with WSAD - R To Rotate / 
Not Rotate Map"): 


Keypress R Event: 
global.rotate=!global.rotate; 


obj_player Create Event: 
image angle=0; 


direction=0; 


Step Event: 
if keyboard check (ord("A") ) 
{ 
directiont=o; 
} 
else 
if keyboard check(ord("D")) 
{ 
direction-=5; 
} 
else 
if keyboard check (ord("W") ) 
{ 
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speed+=l; 
} 
speed=clamp (speed, 0,3); 
speed=speed*0.95; 


image angle-direction; 
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30 Screen Flash Damage Indicator 


A nice way to show the player that they have taken 
damage. 


obj spawn Create Event: 


flashing-false; 


hitTimer=0; 


maxTimer=20; 


Step Event: 


if mouse check button pressed(mb left) && 
flashing==false 


{ 
flashing=true; 


} 
if flashing 
{ 
if (linstance exists (obj flash)) 


{ 


instance create layer(0,0,"flash",obj flash); 


} 
hitTimer ++; 
if hitTimer==maxTimer 


{ 


flashing=false 


hitTimer = 0; 
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obj flash Create Event: 
alp-1; 


Step Event: 
alp-= 0.01; 


if alp<0 
( 
instance destrov(); 


} 


Draw Event: 


x1=0; 


vl-0; 
x2=room width; 
y2=room height 


draw set alpha(alp); 


draw set colour (choose(c red,c vellow)); 


draw rectangle(x1,y1,x2,y2,false): 


draw set alpha(1); 
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31 Board Game Move Pieces A 


A basic movement svstem for board games, that moves 
a square at a time. 

obj board Create Event: 

var cell number = 107 

var board size - 1000, 


var cell size - board size / cell number, 


var xx = cell size * 0.5; 


var yy vee lie Ssaże TUBE 


global.position_array = []; 


var 1 = 0; 


repeat (_ cell _ number * cell number) 4 


// i mod cell number will count 0, 1, 2, etc 
up to 16 and then reset back to 0 


var i mod = i mod cell number; 


// i div | Cell number will stay at 0 until i 
gets to 15 then stay at 1 until i gets to 31, 2 
until 47 and so on 


var -à diy = i div _cell_ number; 


// Since you are alternating the direction of 
x between each row, we'll need to know if it's an 
even or odd row 


ie AC diy noa o 4 


// On even number rows (considering 0 as 
even for this task), we want to the position to 
be calculated left to right 
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var cell x = xx + cell size * i mod; 


// Since the cell count begins at the 


bottom of 
calculate 


the board and moves up it, we'll 
the y value by subtracting from the 


size of the board 


var cell y = board size - yy - _cell size 
A, dle NAG 
global.position array[i] = [ cell x, 
„CELL y ]; 
} 
else { 


// On odd number rows, we want to calculate 
the positio 
essentially do the same thing with x as we are 
doing wi 
and subtract from it 


n from right to left, so we 


th 


the y calculation, start at board size 


var cell x = board size - xx - cell size 
* i mod; 
Var -cell wa beara: Size: = yy =, Cell same 
*. IANG 
global position atray[i] = [ cell x, 
_cell y ]; 
} 
++1; 


Draw Event: 


draw se 
draw set 


draw set 


draw set 


_ha 
_va 


ES 


for (var i 


( 


t Font (font. iext); 


lign(fa center); 


lign(fa middle); 


lour re red); 


E-05 E00 fb KHA 


xpos-global.position array[1] [0]; 
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ypos=global.position array[i] [1]; 


draw text (xpos, ypos, itl); 


draw rectangle (xpos-40, vpos- 
40,xpos440, ypost40, true): 


} 


obj_piece Create Event: 


x-global.position array[0] [0]; 


y=global.position array[0] [1]; 


state-'waiting for dice"; 


roll-0; 


targetx-0; 


targetv-0; 
current=0; 


scale=1; 


Step Event: 


if state-'waiting for dice" && 
mouse: check button (mb left) 


{ 
roll=irandom range (1,6); 


state="moving"; 


target=current+roll; 

targetx=global.position array[current+1] [0]; 
targety-global.position array[current+1] [1]; 
distance=point distance (x,y,targetx,targety) 


move towards point (targetx,targety,2); 
} 


if state="moving" 


{ 

ae 
point distance (x,y,targetx, targety) >distance/2 
scale+=0.02; 
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else scale--0.02; 


scale-clamp(scale,1,2); 


if state="moving" and 
point distance (x,y,targetx,targety)<3 


if target>=current 


( 


current++; 


targetx=global.position _array[current+1] 


tarġetv-ġlobal:position. array [currentt]1] 


distance=point distance (x,y,targetx,targety) 


move towards point (targetx,targety, 2); 


exit 
} 
speed=0; 


scale=1; 


x=targetx; 


y=targety; 


state-'waiting for dice"; 
} 


Draw Event: 


draw sprite ext(spr player,0,x,y,scale,scale,0,c_ 
white,1); 
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32 Board Game Move Pieces B 


A basic movement svstem for board games, that moves 
all squares at once. 

obj board Create Event: 

var cell number = 107 

var board size - 1000, 


var cell size - board size / cell number, 


var xx = cell size * 0.5; 


var yy vee lie Ssaże TUBE 


global.position_array = []; 


var 1 = 0; 


repeat (_ cell _ number * cell number) 4 


// i mod cell number will count 0, 1, 2, etc 
up to 16 and then reset back to 0 


var i mod = i mod cell number; 


// i div | Cell number will stay at 0 until i 
gets to 15 then stay at 1 until i gets to 31, 2 
until 47 and so on 


var -à diy = i div _cell_ number; 


// Since you are alternating the direction of 
x between each row, we'll need to know if it's an 
even or odd row 


ie AC diy noa o 4 


// On even number rows (considering 0 as 
even for this task), we want to the position to 
be calculated left to right 
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var cell x = xx + cell size * i mod; 


// Since the cell count begins at the 


bottom of 
calculate 


the board and moves up it, we'll 
the y value by subtracting from the 


size of the board 


var cell y = board size - yy - _cell size 
A, dle NAG 
global.position array[i] = [ cell x, 
„CELL y ]; 
} 
else { 


// On odd number rows, we want to calculate 
the positio 
essentially do the same thing with x as we are 
doing wi 
and subtract from it 


n from right to left, so we 


th 


the y calculation, start at board size 


var cell x = board size - xx - cell size 
* i mod; 
Var -cell wa beara: Size: = yy =, Cell same 
*. IANG 
global position atray[i] = [ cell x, 
_cell y ]; 
} 
++1; 


Draw Event: 


draw se 
draw set 


draw set 


draw set 


_ha 
_va 


ES 


for (var i 


( 


t Font (font. iext); 


lign(fa center); 


lign(fa middle); 


lour re red); 


E-05 E00 fb KHA 


xpos-global.position array[1] [0]; 
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ypos=global.position array[i] [1]; 


draw text (xpos, ypos, itl); 


draw rectangle (xpos-40, vpos- 
40,xpos440, ypost40, true): 


} 


obj_piece Create Event: 


x-global.position array[0] [0]; 


y=global.position array[0] [1]; 
state="waiting for dice"; 


roll=0; 


targetx-0; 


targetv-0; 
current=0; 


scale=1; 


Step Event: 


if state="Wwaiting for dice" && 
mouse check button (mb left) 


( 
roll-irandom range(1,6); 


state="moving"; 


current=current+roll; 


targetx-global.position array[current] [0]; 
targety=global.position array[current] [1]; 
distance=point distance (x,y,targetx,targety) 


move towards point (targetx,targety,2) 
} 


if state="moving" 


{ 
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Lf 
point distance(x,v,targetx, targety) >distance/2 
scale+=0.02; 


else scale-=0.02; 


scale-clamp(scale,1,2); 


if state="moving" and 
point distance (x,y, targetx, targetv) <3 


speed=0; 


scale=1; 


x=targetx; 


y=targety; 


state-'waiting for dice"; 
} 


Draw Event: 


draw sprite ext(spr player,0,x,y,scale,scale,0,c_ 
white,1); 
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33 Predict Path Of Projectile 


Draws the path of a projectile when moving. 
Script: 


L13 motion predict (instance, steps) 


// 


// Returns a list data structure populated with 
the predicted 


/4 positions jxl,vl, x2,y2, ... , xsSteps,ysteps) 
of an instance 


// with regard to its current motion, friction, 
and gravity. 


74 

// instance instance id, real 

// steps number of steps to look 
ahead, real 
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/// GMLscripts.com/license 


function motion predict (inst id, number) 
( 


var 
instance, steps,dsid,posx,posv, hspd, vspd, grvx, grvy 
„spd,dir; 


instance = INST. id; 
steps = number; 
dsid = ds _list_create(); 
with (instance) { 

posx = x; 


posy = Y; 
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hspd 


hspeed; 
vspd — vspeed; 


grvx — 
lengthdir x(gravity,gravity direction); 


grvy = 
lengthdir y(gravity,gravity direction); 


repeat (steps) { 
spd = point distance (0,0,hspd,vspd) ; 
spd = max(0, spd-friction)/spd; 
hspd *= spd; 
vspd *= spd; 
hspd += grvx; 
vspd += grvy; 


posx += hspd; 


posy += vspd; 


as list add(dsid,posx); 


ds list add(dsid,posv); 


} 


return dsid; 
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Create Event: 
gravitv-0.1; 
Step Event: 
gravitv-0.1; 


Draw Event: 
/// @description Insert description here 


// You can write your code in this editor 


var prediet=ds: list create); 


predict=motion predict (id,100); 
draw self(); 

var gap=5; 
siżecds list Size (predict); 


show debug message (size) 


for (var i= 0; i < size; i += 1) 


{ 


xpos=predict[|0]; 


ypos=predict[|1]; 


if xpos=undefined exit; 


if vpos-undefined exit; 


draw set color(c black); 
show debug message (xpos); 
show debug message (vpos); 
if i mod gap==0 draw circle(xpos,vpos,5,false); 


ds list delete(predict,0); 


ds. list delete(predict,0): 


} 


ds list.clear (predict); 
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34 Animated Mouth When Talking 


Animates a mouth when it is talking. 


Create Event: 


xscale-1, 


yscale=2; 


xdir=1; 


ydir=1; 
xspd=.l; 
yspd=l; 
Step Event: 
if mouse check button (mb left) 
( 
if xdir== 
( 
xscalet=xspd 
if xscale>1.2 
{ 
xdir=-1; 


xspd-random range(0.02,0.12); 


} 


if xdir-—-1 


( 
xscale-=xspd 
if xscale<0.4 
{ 


xdir=1; 
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xspd-random range(0.02,0.12); 


// 
if ydir==1 
{ 
yscalet=yspd 
if yscale>1.2 
( 
ydir=-1; 
yspd=random range(0.02,0.12); 
} 
} 
if ydir==-1 
{ 
yscale-=yspd 
if yscale<0.4 
{ 
vdir-1; 
vspd-random range(0.02,0.12); 
} 
} 
} 
else 


if xscale<l xscale+=xspd; 


if xscale>l xscale-=xspd; 
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if yscale<l yscalet-yspd: 


if yscale>l yscale-=yspd; 
} 
Draw Event: 


draw_self(); 


draw sprite ext(spr mouth,0,x,y,xscale,yscale,0,c 
_white,1); 
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35 Move All Instances By Given 
Amount 


Shifts all instances by a given amount and direction. 


Step Event: 
if keyboard check pressed(ord("W") ) 
{ 


with all 


if keyboard check pressed(ord("S") ) 
{ 


with all 


v+=10; 


if keyboard check pressed(ord("A")) 
{ 


with all 


x-=10; 
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if kevboard check pressed(ord('D')) 


x+=10; 
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36 Split Rocks and Rotate 


Allows an instance to split into multiple parts when 
damaged. 

Create Event: 

dir=choose(-1,1); 

image speed=dir; 

ang=irandom (360); 

direction=ang; 


speed=2; 


Step Event: 


if mouse check button pressed(mb left) && 
instance position (mouse x,mouse y,id) 


( 


inst-instance create laver(x,v, "Instances",obj as 
teroid medium); 


inst.direction-direction-40; 


inst.speed=speed*1.5; 


inst.dir=dir*-1; 


inst-instance create laver(x,v, "Instances",obj as 
teroid medium); 


inst.direction=direction+40; 


inst.dir=dir*-1; 


inst.speed=speed*1*.5; 


instance destroy (); 


} 


move wrap (room width, room height,12) 
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37 Multiple Missiles — Oniv Target If Not 
Targeted 


Smart missiles that will onlv target an instance if 
another missile 1s not targeting it. 


obj missile Create Event: 


speed-4; 


target id-noone; 
Step Event: 
if target id==noone 
{ 
with (obj enemy) 
{ 
if targetted=false 


{ 
other.target_id=id; 


targetted=true; 


exit; 


} 


if target idl-mċone 


( 


move towards point (target_id.x,target_id.y,3) 


| 
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obj enemv Create Event: 


targetted-false; 


Draw Event: 


if targetted—-fals 
( 


draw self(); 


else 


draw sprite ext(sprite index,0,x,v,1,1,0,c red,1) 


r 


} 


Collision Event with obj_ missile: 


if Other. target id-ia 


targetted=false; 


with other instance destroy(); 
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38 Find a Path Through A Maze 


Using mp grid functions to find a path through a maze. 


Create Event: 
var size=46; 


global.grid = mp grid create(0, O, room width / 
size, room height / size, size, size); 


mp_grid add instances(global.grid,obj wall,true); 


global.path-path add(); 


mp_grid path(global.grid, global.path, x, y, 
ob) target.X, ob] target.y; 0); 


path start (global.path,3,path action stop,true); 


Step Event: 
if direction 590 and direction<270 
f 


image xscale--1, 


else 


image xscale=1; 
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39 Flying Bee With Shadow 


Makes a bee fly around the room and cast a shadow. 


Create Event: 


path start (Pathl,4,path action restart,true); 


Step Event: 
if direction>90 and direction<270 


( 


image xscale=-1; 


else 


image xscale-1; 
} 


Draw Event: 


draw self(); 


draw sprite ext (sprite index,image index,x+90,y+9 
Q,image xscale,1,0,c black,0.5); 
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40 Cover Whole Room Instances 


A simple approach to cover the whole room in 
instances. 


Create Event: 


vat sprite sizeh=123; 


var sprite sizew=128; 


var xsize=(room width div sprite sizeh)t1, 


var ysize=(room height div sprite sizew)+1; 


for (var i = 0; 1X xsize; 1 += 1) 


for (var j = 0; j < ysize; jt= 1) 


{ 


instance Create layer(sprite. Sizew*1,Sprite ‘sizeh 
*j, "Instances", ob] <Crate); 


} 
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41 Kevboard Controlled Plaver With 
Mouse Controlled Gun 


Allows plaver and gun to be controlled separatelv. 


Create Event: 
ang=0; 
targetang=0; 
scale=1; 
Step Event: 
if keyboard check (ord("A") ) 
{ 
X—-i 
image xscale--1, 


image speed-1; 


else if keyboard check(ord('D')) 
( 
KITTY 
image xscale=1; 
image speed-1, 
} 
else image speed=0; 


x=clamp (x,0,room width); 


targetang-point direction(x,y,mouse x,mouse_y); 


if targetang>90 and targetang<270 scale=-1; else 
scale=l; 
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Draw Event: 
draw. _self(); 


draw sprite ext(spr_gun,0,x,y,1,scale,targetang,c 
_white,1); 
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42 Spaceship Control 


Moving a spaceship with inertia based movement. 
Step Event: 
if keyboard check(ord("W")) motion add(90,0.1); 


if kevboard check(ord('A')) motion add(180,0.1); 


if kevboard check(ord('D')) motion add(0,0.1); 
if x>room width 
( 

x-room width-1; 


hspeed-0; 


if xx0 


if y>room height 
( 
v-room height-1; 
vspeed=0; 
} 
if y<0 
( 
y=1 
vspeed=0; 
} 


motion add(270,0.05); 
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43 Slide In Buttons 


Slide in button effect without using sequences. 
Create Event: 
x=-2000; 


y=-2000; 


targetx-room width/2; 


targety=room height/2+100 


spd=5; 


move towards point (targetx, targety, spd): 


Step Event: 


dist=point distance (x,y,targetx,targety); 
if dist<spd 


( 


move towards point (targetx,targety,dist) 


else 


move towards point (targetx, targety, spd): 


if dist<1 


speed=0; 


115 


44 Draw Crosshair In Middle Of View 


Draws a crosshair taking view position in to account. 


Draw Event: 


view x(view camera[0]); 


view v(view camera[0]); 


view width(view camera[0]) 


var vx = camera get 
Var vy = camera get 
var vw = camera get 
2g 


var vh -camera get view height (view camera[0]) 


25 


draw set colour(c white); 


var size=100; 


draw circle(vw,vh,size,true); 


draw line (vw,vh-size,vw,vh-tsize); 


draw line (vw-size,vh,vwrsize,vh); 


/ 


/ 
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45 Draw Rectangle With Dashed Border 


Draws a rectangle with a dashed border. 


Script: 


/// Gfunc draw rectangle dashed(xi, yl, x2, y2, 
size, center) 


dé? 


/// @desc Draws a rectangle made of dashes of a 
given size. 


KŁ The coordinates of the rectangle are 
given by two 


Lif opposite corners (eg. top-left and 
bottom-right). 


BKA If no size is given, single pixel 
dots are used. 


Pt Dash texture position can be locked 
to the center 


PTS of the rectangle (default) or the 
top-left corner. 

ag: 

/// @param {real} x1 x-coordiante 


of 1st rectangle corner 


/// @param {real} yl y-coordiante 
of lst rectangle corner 


/// @param {real} x2 x-coordiante 
of 2nd rectangle corner 


/// @param {real} y2 y-coordiante 
of 2nd rectangle corner 


/// @param {real} size length of the 
dashes in pixels (default 1) 


/// @param {bool} center lock texture 
to center (default true) 


Le 
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/// GMLscripts.com/license 


function draw rectangle dashed(xi, yl, x2, y2, 
size, center) 


{ 


// create dash texture as needed, generally 


// only once unless it is freed by the OS 


static surf = -1; 
if (!surface exists (surf)) { 
surf = surface _create(2, 2); 
if („surface exists (surf)) return U; 
var alpha = draw get alpha(); 
draw set alpha(1.0); 
surface _ set _ target (surf); 
draw clear alpha(c white, 0.0); 


draw point color(0, 0, c white); 


draw point color(1, 1, c white); 
suriace TESEh target A 


draw set alpha (alpha); 


// swap coordinates if necessarv 


if (x2 < xi) ( var t = xl; xl = x2; x2 = t; 


if (y2 < yl) { var t = yl; yl v2: y2 t; 


// scale texture UV coordinates 


var ul = 0; 


var vl = 0; 
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(x2 - xi) / (2 * size); 


var u2 


var v2 = (y2 = yl) / (2 * size); 


// optionally center texture UV coordinates 


if (center) { 


0.25 - (u2 G2) / 2; 


ul 


vl = 0.25 =" (v2 % 2) / 2; 


u2 += ul; 


v2 += vl; 


// draw textured rectangle using the global 
color and alpha 


var color = draw get_color(); 


var alpha = draw get alpha(); 


var rept = gpu get _ tex repeat (); 
var filt = gpu get tęxfilter(); 
gpu Set. Lex. repeat (true); 
gpu set texfilter(false); 


draw primitive begin texture(pr linestrip, 
surface get texture (surt))7 


draw vertex texture color(x1, vi, ul, vi, 
color, alpha), 


draw vertex texture color(x2, yl, u2, vl, 
color, alpha); 


draw vertex texture color(x2, y2, u2, v2, 
color, alpha); 


draw vertex texture_color (x1, y2, ul, v2, 
color, alpha); 


draw vertex texture color(xl, yl, ul, vl, 


color, alpha); 
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draw primitive end(); 


gpu. set_tex repeat (rept); 


gpu set texfilter(filt); 


Example Usage: 


xl-irandom range (100,500); 
x2-x1tirandom range (100,400); 


vl-irandom range (100,500); 


vż-vl-irandom range (100,400); 
size-irandom range(2,5); 


center-false; 


Draw Event: 


draw rectangle dashed(x1, yl, x2, y2, size, 
center) 
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46 Top Down 360 Degree Movement 


360 degree movement control with basic collision 
svstem. 
Create Event: 
dir-0; 
spd-0; 
walkspd=2; 
Step Event: 
if keyboard check(ord("A")) dir++; 
it keyboard “check (ord{"D") ) dir--; 
if keyboard check (ord("W") ) 
{ 
speed=walkspd; 
} 
else 
if keyboard check(ord("S")) 
( 


speed—-walkspd; 
else 
speed=00; 


} 


direction=dir; 


image angle=dir; 


inst-instance place (x+vspeed, y+vspeed, obj crate) 
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if instl-noone 


( 


hit dir-point direction(x,v,inst.x,inst.v); 


i--xerlengthdir: x(2,hit_dir-180); 


y=y+lengthdir y(2,hit_dir-180); 


122 


47 Attacking Sprite Control Svstem 


Sprite management svstem for attacking. 


Create Event: 


attacking-false; 


Step Event: 
if kevboard check pressed(ord('A')) 
( 
image xscale=-1; 
} 
if keyboard check pressed(ord("D") ) 
{ 
image xscale=1; 
} 


if mouse check button pressed(mb left) && 
attacking==false 


{ 
attacking=true; 
sprite index=spr attack; 
image index=0; 

} 


Animation End Event: 

if attacking 

{ 
attacking=false; 
sprite index=spr idle; 


image index=0; 
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48 Enemy Patrol System 


A enemy that patrols along a path. If it's torch can see 
the player it turns towards it. 


Create Event: 


spd=2; 


path-path start (Pathl,spd,path_action restart,tru 
e); 


targetx-0; 


targety=0; 


text="On Path"; 
can see=false; 
distance=400; 
angle=35; 
posx0=x; 
posy0=y; 


path point-0; 


posxl=x+lengthdir x(distance, image angle-angle) ; 
posyl=ytlengthdir y(distance, image angle-angle) ; 
posx2=x+lengthdir x(distance,image angletangle) ; 
posy2-ytlengthdir y(distance, image angletangle) ; 


Step Event: 


//triangle stuff 


distance=400; 
angle=35; 
posx0=x; 


posy0=y; 
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posxl=x+lengthdir x(distance,image angle-angle); 
posyl=ytlengthdir y(distance, image angle-angle); 
posx2=x+lengthdir x(distance,image angletangle) ; 
posy2-ytlengthdir y(distance, image angletangle) ; 
if 

point in triangle(obj player.x,obj player.y,posx0 


,posy0,posxl,posyl,posx2,posy2) 
{ 


can see-true 


targetx-obj plaver.x; 


targetv-obj plaver.v; 


text-'Can See Player"; 


else 


can see=false; 

text="Can Not See Player"; 
} 
if can see 


{ 


image_angle=point_direction(x,y,obj_player.x,obj_ 
player.y); 


} 
else 
{ diff-angle difference (image angle,direction); 


if diffjl image angle==; 


if diff<1 image angle+t+; 
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} 


Draw Event: 
draw self(); 


draw text(x,v-80,text); 


draw path(Pathil,x,v,true); 


draw set - colour (Cc green); 
draw circle(posx0,posy0,5,false); 


draw circle(posx1,posy1,5,false): 


draw circle(posx2,posv2,5,false); 
draw set alpha(0.4); 


draw triangle (posx0, posy0, posx1,posy1,posx2,posy2 
,false); 


draw set alpha(1), 
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49 Change Cursor To Selected Item 


Changes the cursor to selected sprite and allows 
placement in room. 


obj_control Create Event: 
selected=0; 

image speed=0; 

Step Event: 

X-MOUSE X H 


y=mouse_y; 


if keyboard check pressed (ord (7 11)) selected=1; 
if kevboard check pressed(ord('2')) selected-2; 
if keyboard Check. pressed(ord("3")) selected-3; 


if selected==0 


window set cursor(cr default); 


else 


window set cursor(cr default); 


if mouse check button pressed(mb left) 


( 


instance create layer(x,y,"towers", 
obj placed, 


( 
placed : selected, 


image speed : 0 
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} 


Draw Event: 


if selected!=0 
draw sprite(sprite index,selected,x,y); 


obj placed Draw Event: 


draw sprite(spr towers,placed,x,v); 
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50 Fade Between Text Messages 


Fades between two text messages. 


Create Event: 


textl-'Hello World'; 
text2="Have A Nice Day"; 
fade-0; 

dir=1; 

Step Event: 


fade+=0.01*dir; 


if fade>=1 dir=-1; 


if fade<=0 dir-1; 


Draw Event: 


draw se 
draw set 


draw set 


draw set 


fone font. text), 


 colour(c white); 


_halign(fa_center); 


_alpha(1-fade); 


draw text (200,200, text1) 


draw set alpha (fade); 


draw text (200,200, text2); 


draw set alpha(1); 
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51 Enemv Jumping 
A svstem for making an enemv jump at a certain 
position. 
Create Event: 
gravitv-0.1; 
jumps=0; 
Step Event: 


if image xscale== 


X+=2; 


X-=2; 


move and collide(0, vspeed, obj crate); 
if instance position(x,ytvspeed,obj crate) 
( 

vspeed=0; 

gravity=0; 

jumps=0; 


sprite index-spr player walk; 


if vspeed>0 sprite index-spr player jump down; 


if vspeed<0 sprite index=spr player jump up; 


if instance position(x,y,obj crate) 
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if 'linstance position(x;vrl;obj crate) 


VET? 


Collision Event with obj jump: 
if jumps-0 
( 
jumps-1; 
gravitv-0.1; 
vspeed=-6; 
} 
Intersect Boundary Event: 


image xscale*=-1; 
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52 Pick Up and Place Items From 
Inventorv 


A simple inventorv that can hold 3 items. 


obj plaver Create Event: 


ġlobal,tvpessartav. create (); 


Global Slous=array ersatejjġ 


array push ((global.tvpes, "BAG", "BOTTLE", "CAN", "PIZ 
ZA", "DRINK") ; 


text=""; 


Step Event: 


it keyboard check (ora 'A')) 


X++; 


inst-instance place(x,v,obj item) 
if instl-noone 
( 


text-global.tvpeslinst.tvpel; 


else 


text= "To 
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} 


if keyboard check pressed (ord("P")) «6 inst! 
=noone 


{ 
array push (global.slots,inst.tvpe); 


with inst instance destroy(): 


if array length (global.slots)73 


( 


inst-instance create laver(x,v, 'Instances'',0bj it 
em); 


inst.type=global.slots[0]; 


array delete (global.s10t5,0,1)7 


} 
if keyboard check pressed (ord("L") ) 


{ 
if array. Length (global.slots)>0 


{ 


inst-instance create laver(x,v, 'Instances'',0bj it 
em); 


inst.type-global.slots[0]: 


array delete (global.slots,0,1); 


} 


Draw Event: 
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draw self(); 


draw set font (font text); 


draw set color(c white) 


if text!="" draw textlx,y-200,"!P To Pickup 
"+text); 


obj_item Collision with obj_item: 
if other.id>id x--; 


item obj draw inventorv: 


draw rectangle (40,560,500, 700, false); 


size-arrav length(global.slots); 


for (var i= 0; i < size; i += 1) 


( 


draw sprite(spr item,global.slots[i],100+(160*1i), 
700) 


} 
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53 360 Degree Laser 


Draws a laser based on sprite between two points in the 
room. 


Create Event: 
size=0; 


segments=0; 


segment size=50; 


remainder=0; 
final xpos=0; 
dist=0; 


ang=0; 


Step Event: 


dist=point distance(x,v,mouse x,mouse v); 


ang-point direction(x,v,mouse x,mouse v); 
segments-dist div segment size; 
remainder-dist mod (segments'segment size); 
final xpos-segment size*segments; 

Draw Event: 

draw self(); 

image angle-ang; 

for (var i = 0; i < segments; i ++) 

{ 


xpos=xtlengthdir x(i#segment size,ang), 


ypos-ytlengthdir y(i*segment size,ang); 


draw sprite ext(spr laser,0,xpos,ypos,1,1,ang,c w 
hite,1), 


) 
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xpos2=x+lengthdir x(final xpos,ang); 


ypos2-ytlengthdir y(final xpos,ang); 


xpos2=xpos2+lengthdir x(13,490); 


ypos2=ypos2+lengthdir v(13,490); 


draw sprite general (spr laser,0,0,0,remainder, 55, 
xpos2,vpos2,1,1,ang,c white,c white,c white,c whi 
te,1); 
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54 Laser Through Multiple Instances 
Detects collision of laser with multiple instances, and 
makes hit instances show collision. 

Laser Create Event: 
ġlobal,list-ds. list create (); 


Step Event: 


ds_list_clear (global.list); 


collision line list(room width/2,room height/ 
2,mouse x,mouse y,obj enemy,true,false,global.lis 
t,false); 


Draw Event: 
draw set_colour(c_green); 


draw line width (room width/2,room height/ 
2, mouse X,mouse V,9); 


obj_enemy Create Event: 
is hit-false; 


Step Event: 


is hit-false; 


size=ds list size(global.list) 
for (var i= 0; i size; i += 1) 


( 


if global.listilil-id is hit-true; 


} 


Draw Event: 
if is hit 
{ 


draw sprite ext(sprite index,0,x,v,1,1,0,c red,1) 


else 
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draw self(); 
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55 Draw Sprite On Sprite Laver 


Allows placing and removal of a sprite on an assets 
layer. 


Create Event: 


15 present=false; 


Step Event: 


if mouse check button pressed(mb left) && 
is present==fals 


{ 


is present=true; 
sprite=layer sprite create ("sprite layer", 400,400 
,Spr_enemy) ; 
} 


if mouse check button pressed(mb right) && 
is present 


{ 


is present=false; 


layer sprite destroy (sprite); 
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56 Detect Single Or Double Mouse 
Button Click 


Returns whether a single or double mouse click has 
been made. 


Create Event: 
mess="Waiting For Input"; 


timer=0; 


has. pressed-talse; 


done=false; 


Step Event: 


if mouse check button pressed(mb left) && 
done==false 


{ 
if has pressed—-fals 
( 


has pressed-true; 
exit 
} 
if has pressed && timer<30 
{ 
mess="Double Click"; 


done=true; 


} 
if has pressed && done==false 
{ 


timer++; 
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if timer>=30 
( 
mess="Single Click"; 


done=true; 


} 


if mouse check button pressed(mb right) 


{ 


room restart); 
} 


Draw Event: 


draw text (500,500,mess) ; 
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57 Leave Path To Attack Then Return 
To Path 


Allows an instance to move to a position to attack, and 
then return to path and continue. 


Create Event: 


spd=2; 

path-path start (Pathi, spd,path action restart,tru 
e); 

moving to target-false; 


alse; 


return to path- 


targetx-0; 


targetv-0; 


text="On Path"; 


Step Event: 


if !moving to target && lreturn to path && 
mouse check button pressed (mb. left) 


{ 


LAaTJELX=MOUSE X; 


targety=mouse_y; 


moving to target=true; 
returnx—X; 
returny=y; 


path point=path position; 


path end(); 


text="Moving To Target"; 
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if moving to target 


( 


move towards point (targetx, targety, spd), 


if point distance(x,y,targetx,targety)sx1 


( 


moving to target-false; 


return to path=true; 
speed-0; 


audio play sound(Attack,1,false); 


} 


if return to path 
{ 


move towards point (returnx, returny, spd) ; 


if point distance (x,y, returnx, returny) <1 


x-returnx; 


y=returny; 


path-path start (Pathl,spd,path_action restart,tru 
e); 


path_position=path point; 


return to path=false; 
} 
text="Returning To Path"; 


} 


Draw Event: 
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draw self(); 


draw text(x,v-80,text); 


draw path(Pathl,x,y,true); 
if moving to target 


( 


draw circle(targetx,targety,5,false); 


144 


58 Choose Random Word 


Chooses a random word from a dictionarv file of the 
chosen length. 


Create Event: 


dictionarv-ds list create(); 


dic file=file_text_open_read("dictionary.txt"); 


while(lfile text eof(dic file)) 


( 


word-file text read string(dic file); 


ds list add(dictionarv,word); 
file text readin(dic file); 
} 


result=""; 


size=ds_list_ size (dictionary) “LL, 


Draw Event: 


draw set. font (front. text); 


draw set colour(c white); 


draw text (50,50, "PRESS 5 6 7\nTo Choose Random 
Word Of That Length"); 


draw text (50,200, "Number of words 
"+string(size)); 


draw text (50,350,result); 


Keypress of 5 Event: 


draw_set_font(font_text); 


draw set colour(c white); 


draw text (50,50, "PRESS 5 6 7\nTo Choose Random 
Word Of That Length"); 
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draw 


LEX 


"+string 


draw_ 


t(50,200,"Number of words 
(size) ); 


LEX 


t(50,350,result); 
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59 Change Sprite When Jumping 


Changes a plaver's sprite when jumping and moving 
up and down. 
Create Event: 
gravitv-0.1; 
jump=0; 
max jumps=2; 
Step Event: 
move and collide(0, vspeed, obj crate), 
if instance position (x, y+vspeed, obj crate) 
{ 
vspeed=0; 
gravity=0; 
jumps=0; 
sprite index=spr player idle; 
} 


if mouse check button pressed(mb left) ss 
jumps<max jumps 


( 
jumpst+t; 
gravity=0.1; 
vspeed=-6; 

} 


if vspeed>0 sprite index=spr player jump down; 


if vspeed<0 sprite index=spr player jump up; 
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60 Plav Random Sound 


Plavs a random sound from a choice of options. 


Step Event: 
if instance place(x,v,obj plaver) 


( 


if dir== 

image angle-(angtsin (current time/spd) *dist) +60; 
if dir==-1 

image angle=(ang-sin(current time/spd) *dist) +60; 


image xscale=0.5; 


else 


if image angle>90 image angle--; 


if image angle<90 image angle++; 


if floor(image angle) =90 


ang=choose (30,-30); 
ang=choose (30,-30); 


if image xscale<l image xscale+=0.02; 
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61 Move Multiple Instances Through A 
Small Gap 


Allows multiple instances to move through a small gap. 


Step Event: 


mp potential step object(obj target.x,obj target. 
V,2,0bj crate); 


Collision with obj crate: 


inst-other; 


instx-inst.x; 


instv-inst.v; 


dir-point direction(x,v,instx,instv); 


x-x-lengthdir x(3,dir); 


v-v-lengthdir v(3,dir); 


Collision with obj enemv: 


inst-other; 


instx-inst.x; 


instv-inst.v; 


dir-point direction(x,v,instx,instv); 


x-x-lengthdir x(3,dir); 


y-y-lengthdir v(3,dir); 
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Collision with obj target: 


inst-other; 


instx-inst.x; 


instv-inst.v; 


dir-point direction(x,v,instx,instv); 


x-x-lengthdir x(3,dir); 


v-v-lengthdir v(3,dir); 
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62 Draw Text With Formatting 


This allows drawing with a set font, colour, alignment 
and position. 


Script: 


function 
scr text (xx, yy, font,colour,halign, valign, text) 


( 


draw set font(font); 
draw set colour (colour); 


draw set halign(halign); 


draw set valign(valign); 


draw text(xx,vv,text); 


Example usage, called from a Draw Event: 


ser text (200,300, font text 2,c lime,fa left,fa to 
p,'Another Example Text 2"); 
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63 Moving Grass Top Down 


Deforms grass when plaver makes contact. 


Spawn grass: 

gap=8; 

xsize=room width div gap; 
ysize=room height div gap; 


for (var i= 0; 1X xsize; 1 += 1) 


for (var j = 0; ] < ysize; j += 1) 


instance: create layer(gap*i,gap*j,'"grass",0D] -gra 
ss); 


} 
} 


obj_grass Create Event: 
ang-choose (30,-30); 
dir-choose(-1,1); 
spd-1000; 

dist=60; 


sprite index=choose(spr_grassl,spr grass2,spr gra 
ss3); 


spd=spd+ (irandom range (spd-100,spd+100)); 


image angle=90; 
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Step Event: 
if instance place(x,v,obj plaver) 


( 


if dir== 

image angle-(angtsin (current time/spd) *dist) 4 
if dir==-1 

image angle=(ang-sin(current time/spd) *dist) 4 


+60; 


image xscale=0.5; 


if image angle>90 image angle--; 


if image angle<90 image angle++; 


if floor(image angle) =90 


ang=choose (30,-30); 
ang=choose (30,-30), 


if image xscale<l image xscale+=0.02; 


+60; 
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64 Turn Before Moving 


Follows a path, but turns before moving. 


Create Event: 


path start (Pathli, 4, path action restart, true); 


Step Event: 


diff-angle difference (direction,image angle) 


if abs (diff)>5 
{ 


path speed-0; 


Ju. 


f diff>5 image_angle+=1; 


else image_angle-=1; 


else 


image_angle=direction; 


path speed-4; 
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65 Make Health Icon Pulse When 
Health Is Low And Plav Voice Warning 


Makes a health icon pulse and plav an audio warning 
when heath is low. 

Create Event: 

health-100; 

warning at-40; 

scale-1; 

dir-1; 

pulsing-false; 


alarm[0]-game get speed(gamespeed fps) *4; 


Step Event: 
if mouse check button (mb left) 
( 

health--; 
} 
if mouse check button (mb right) 
( 

health++; 


} 
health=clamp (health, 0,100); 


if health<warning at 


{ 


pulsing-true; 


else 


pulsing-false; 


} 
if pulsing 
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if dir=1 


scale+=0.02; 


if scale>=1.5 dir—-1; 


if dir=-1 


scale-=0.02; 


if scale<=0.5 dir=1; 


scale=1; 


image xscale=scale; 


image yscale=scale; 


Alarm 0 Event: 
alarm[0]=game get speed(gamespeed fps) *4; 


if pulsing 

{ 

audio play sound(choose (Low Health,Warning Low He 
alth),1,false); 

} 


Draw Event: 
draw self(); 


draw text (x-100,v, "Health Is: "+string(health)); 
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66 Avatar Creator 


Allows user to create a custom avatar, that is saved as a 
sprite so it can be used in game. 


Select Avatar parts: 


Create Event: 


sprite=spr face; 


images-sprite get number (sprite); 
num=0; 
text="FACE"; 
Step Event: 
if instance position (mouse x,mouse v,id) 
( 
if (mouse check button pressed(mb left)) 
( 
image index — 2; 
num++; 


if num=images num=0; 


else 


image index = 1; 


else 


image index=0; 
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} 


Draw Event: 
draw self(); 
draw set font (font text); 
draw Set. colour (¢ white); 


draw set halign (fa center); 


draw set valign(fa middle); 
str-string (num41); 


number= String repeat (spi. 2- 
string length (str))+str; 


draw text (x,y,textt" "+number); 


draw sprite(sprite,num,global.xpos,global.ypo 
S); 


Create sprite from the avatar: 
if instance position (mouse x,mouse v,id) 
( 
if (mouse check button pressed(mb left)) 
( 
var surf; 
surf = surface create(500, 500); 
surface Set target (surf); 
draw clear alpha(c black, 0); 
draw sprite(spr neck,obj neck.num,250, 250); 
draw sprite(spr face,obj face.num,250, 250); 
draw sprite(spr beard,obj beard.num,250, 250); 


draw sprite(spr eves,obj eves.num,250, 250); 


draw sprite(spr hair,obj hair.num,250, 250); 
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draw sprite(spr evebrows,obj eyesbrows.num, 250, 
250); 


draw sprite(spr evelids,obj evelids.num,250, 
250); 


draw sprite(spr glasses,obj glasses.num,250, 
250); 


draw sprite(spr hats,obj hats.num,250, 250); 


draw sprite(spr headwear,obj headwear.num,250, 
250); 


draw sprite(spr lips,obj lips.num,250, 250); 
draw sprite(spr noses,obj noses.num,250, 250); 


draw sprite(spr pupils,obj pupils.num,250, 
250); 


draw sprite(spr clothes,obj clothes.num,250, 
250); 


global:spr avatar sprite create from surface (surf 
„0,0,500,500,false,false,250,250); 


surface reset Largect) 7 
surface_free (surf); 
room goto(room show); 


else 


image index = 1; 


else 


image index-0; 
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67 Ship Shooting Cannon Balls 


A rotating ship that fires cannon balls port and 
starboard. 


Create Event: 


xposl — 0; 
yposl = 0; 
Step Event: 


if mouse check button(mb left) 
( 

image angle+=2; 
} 
if mouse check button(mb right) 
( 

image angle-=2; 


} 


xposl = x + lengthdir x(85, image angle); 
yposl = y + lengthdir y(85, image angle); 
if mouse check button pressed(mb middle) 


( 


targetposx=xposl+lengthdir x(20, 
image angle+90); 


targetposy=yposl+lengthdir y(20, 
image angle+90); 


inst-instance create layer (targetposx, targetposy, 
"cannonballs"); 


inst.direction=image angle+90; 


inst.speed=5; 
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targetposx=xposl+lengthdir x(20, image angle- 
90); 


targetposy=yposl+lengthdir y(20, image angle- 
90); 


inst-instance create laver (targetposx, targetposv, 
"cannonballs"); 


inst.direction=image angle-90; 


inst.speed=5; 
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68 Simple Glow Effect With Circles 


A simple glow effect that uses sprite instead of a 
shader. 


Create Event: 

glow size-2; 

dir=1; 

max size=4; 

min size=2; 
spd=0.03; 
number of rings=100; 


colourl=c_yellow; 


colour2=make_color_rgb (253,153,0) 
Step Event: 
if dir=1 
{ 
glow size+=spd; 


if glow size>=max size 


dir—1; 


if dir=-1 


glow_size-=spd; 
if glow size<=min size 
( 


dir=1; 


163 


; 


Draw Event: 


draw self(); 


draw text (x,v-100,glow size) 
draw set colour(c vellow); 
for (var i = 0; i < number of rings; i += 0.1) 
{ 
draw set alpha(i/100); 


draw set_colour (colour1); 


if i<4 draw set colour(colour2); 


draw circle(x,y,glow size*number of rings/i,false 


); 
} 
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69 Simple Glow Effect With Sprite A 


A simple glow effect using a sprite. 
Create Event: 
glow_size=2; 
dir=1; 
max_size=3; 
min_size=1; 
spd=0.03; 
Step Event: 
if dir=1 
{ 
glow size+=spd; 


if glow size>=max size 


dir—1; 


glow size—-spd; 


if glow size<=min size 


dir-1; 


Draw Event: 
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draw self(); 
draw text(x,v-100,glow size) 


draw sprite ext(spr glow,0,x,y,glow size,glow size,0,c white,0.4); 
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70 Simple Glow Effect With Sprite B 


An alternative simple glow effect using a sprite. 


Create Event: 
glow_size=2; 
dir=1; 
max_size=3; 
min_size=1; 
spd=0.03; 
Step Event: 
if dir=1 
{ 
glow size+=spd; 


if glow size>=max size 


dir—1; 


glow_size-=spd; 


if glow size<=min size 


dit=l; 
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Draw Event: 
draw self(); 


draw text (x,v-100,glow size) 


draw sprite ext(spr glow 2,0,x,v,glow size,glow s 
ize,0,c white,0.4); 


draw sprite ext(spr glow 1,0,x,v,glow size/ 
2,glow_size/2,0,c_white,0.6); 
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71 Move To Target Then Stop 


This moves an instance to a target position then stop. 


Create Event: 
spd-30; 
moving=false; 


done=false; 


Step Event: 


if moving==false && 
mouse check button pressed (mb left) 


{ 


moving=true; 


LATJELX=MOUSE X; 


targety=mouse_y; 
} 
if mouse check button pressed(mb right) 
( 
room Eer EE 
} 
if moving && done==false 


{ 


dist=point distance (x,y,targetx,targety); 
if dist<spd 


{ 


move towards point (targetx, targety, dist) 


else 
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move towards point (targetx, targety, spd), 


if dist<l 

( 
speed-0; 
done-true; 


//or whatever you want to do when target 
reached 


} 
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72 Level Based On Score 


Sets the level based on the plaver's score. 


Create Event: 


score-0; 


level=1; 


Step Event: 


if mouse_check_button(mb_left) 


{ 


score-210; 


) 


if mouse. check. button(mb. right) 


( 


score+=10; 


} 


score-clamp(score,0,10000); 


level-(score div 1000) +1; 


Draw Event: 


draw 


draw 


LEX 


LEX 


t(200,200,"Score "+ 


t(200,250, "Level "+ 


S 


S 


tring(score)); 


tring(level)); 
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73 Plaver Control Information 


A system that displays player controls for only the first 
5 times the game is played. 

Create Event: 

ini open("Settings/savedata.ini"); 

count = ini read real("savel", "count", 0); 


ini close(); 


Step Event: 
if mouse check button pressed(mb left) 
( 
counttt, 
ini open("Settings/savedata.ini"), 
ini Write real (Tsavel", "count"; count); 
ini close(); 
} 
Draw Event: 
if count<5 


{ 


draw_text(200,200,"Move With ASAD"); 
else 
draw_text(200,200,"No Tutorial Message"); 


} 


draw text (200,250,"Count “"+string (count) ); 
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74 Selectable Background 


Allows the plaver to choose the background for the 
game. 


Step Event: 
if keyboard check pressed(ord('1')) 
( 
var lay id = layer get_id("Background") ; 
var back id = layer background get id(lay id); 
layer background sprite(back id, bg 1); 
} 
if keyboard check pressed(ord("2") ) 
{ 
var lay id = layer get_id("Background") ; 
var back id = layer background get id(lav id); 
laver background sprite(back id, bg 2); 
} 
if keyboard check pressed(ord("3") ) 
{ 
var lay id = layer get ta("Background™):; 
var back_id = layer background get id(lav id); 
laver background sprite(back id, bg 3); 
} 
if keyboard check pressed(ord("4") ) 
{ 
var lay id = layer get _id("Background") ; 
var back id = layer background get id(lay id); 


layer background sprite(back id, bg_4);} 


173 


75 Draw Buttons With Chosen 
Language 
Allows a user to select which language to use. 


obj control Create Event: 


global.button[1] [0]="Engish"; 
global.button[1] [1]="PLAY"; 
global.button[1] [2]="HELP"; 
global.button[1] [3]="SCORES"; 
global.button[1] [4]="EXIT"; 
global.button[2][0]="French"; 
global.button[2] [1]="JOUER"; 
global.button[2] [2]="AIDE"; 
global.button[2] [3]="SCORES"; 
global.button[2] [4]="SORTIE"; 
global.button[3][0]="Spanish"; 
global.button[3][1]="JUGAR"; 
global.button[3] [2]="AYUDA"; 
global.button[3] [3]="PUNTUACION"; 
global. button[3] [4]="SALIDA"; 


global.current=1; 


Step Event: 
if keyboard check pressed(ord("A") ) 
{ 


global.current++; 
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if global.current==4 global.current=1; 
} 
Draw Event: 
text=global.button[global.current] [0]; 
draw set halign(fa center); 


draw set valign(fa middle); 


draw set color(c black); 


draw text (room width/2,600, "Language "+text); 


obj button Create Event: 
mv id-1; 
image speed-0; 
obj button parent Create Event: 
if instance position (mouse x,mouse v,id) 
( 
if (mouse check button(mb left) ) 
( 


image index — 2; 
} 
else 
{ 
image index = 1; 
} 
} 
else 


image index=0; 
} 


Draw Event: 


draw_self(); 
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text-global 


draw set hal 


draw set val 


draw set co 


draw text(x 


-button[global.current] [my id]; 


ign(fa center); 


ign(fa middle); 


lor(c black) 


ry, text); 


176 


76 Lotterv Numbers Selector 


Generates 6 lotterv balls, coloured depending on value. 


Create Event: 
all balils-ds List, cFeate()ę 


for (var i = 1; i < 50; i +=1;) 
{ 
ds_list_add(all_balls,i); 
} 
ds_list_shuffle (all balls) 


choosen balls-ds list create () 
varpos=1; 


repeat 6 


ds list add(choosen balls,all balls[|pos]); 


postt; 


ds list sort (choosen balls,true); 


Draw Event: 
var xpos-200; 
var spacing-200; 


draw set halign(fa center); 


draw set valign(fa middle); 
var ypos-room height/2; 
for (var i =0; i < 6; i 4-1;) 


f value=choosen balls[|i]; 


col=scr ball colour (value); 


draw set_colour (col); 
draw circle(xpostspacing*i,ypos,80,false); 


draw set colour(c black); 
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draw text (xpos-tspacing'i,vpos,value); 


} 


Script: 


function scr ball colour (value) 


if value>= 

if value>=10 
if value>=20 
if value>=30 
if value>=40 


and value<=9 return 
and val 
and val 
and val 


and val 


ue<=19 
ue<=29 
ue<=39 


ue<=49 


re 


re 


re 


re 


Lu 


Lu 


Lu 


Lu 


c white; 
rn c blue; 
rn c green; 
rn c_ red; 


rn c yellow; 
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77 Draw Room Border On Draw Laver 


Draws a border around the current view without using 


Draw GUI Laver. 

Draw Event: 

var cam = view camera[0]; 

var xl — camera get view x(cam); 

var yl = camera get view y(cam); 

var x2 = xl camera get view width (cam); 
var y2 = yl camera get view height (cam) ; 


var border size=50; 
draw set_colour(c_red); 


draw rectangle (xl-border size,vl-border size,x2- 
border siże;vi-border. size,true); 
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78 Card Flipping Animation 
Plaving card flipping animation. 
Create Event: 
state="showback"; 
front=sprite index; 

Step Event: 
if state="turnback" 
( 
image_xscale-=0.02; 
} 
if state="turnback" and image_xscale<=0 


( 
state="turnfront"; 
} 
if state="turnfront" 
{ 
image xscale+=0.02; 
} 
if state="turnfront" and image, xscale>=1 
{ 
state="done"; 


} 
Draw Event: 
if state="showback" 


{ 


sprite index-spr back; 
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} 


else if state="turnfront" 
{ 
sprite index=front; 
} 
draw self(); 
draw text (x, VH220, state); 
Left Mouse Button Released Event: 
if state="showback" 


( 


state="turnback"; 
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79 Dav Night Cvcle 


Adds colour depending on the time of dav. 
Create Event: 
time-12; 


dav-1; 


alarm[0]-#game get speed(gamespeed fps); 


Alarm 0 Event: 
time++; 
if time==24 
( 
time-0; 
dayt++; 
} 


alarm[0]=game_get_speed(gamespeed fps); 


Draw GUI Event: 


timestring-string (time); 


if string length (timestring)--1 
timestring="0"+timestring; 


draw set font(font text); 


draw set colour(c black); 


draw text (50,50, "Time "+timestring+":00"); 


draw text (450,50, "Day "+string(day)); 


draw set colour(c black); 


draw set alpha(0); 
switch (time) 


( 
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case 21: 


draw set 


draw set 


break; 


case 22: 


draw set 


draw set 


break; 


case 23: 


draw Set 


draw set 


break; 


case 0: 


draw set 


draw set 


break; 


case l: 


draw set 


draw set 


break; 


case 2: 


draw set 


_alpha(0.1); 


_Ccolour(c_yellow); 


_alpha (0.2); 


_colour(c_orange); 


_alpha (0.3); 


Colour (e- blue); 


_alpha(0.4); 


_colour(c_dkgray) ; 


_alpha (0.6); 


_colour(c_black); 


_alpha (0.8); 


183 


draw set colour(c black); 


break; 


case 3: 
draw se 
draw se 


break; 


case 4: 
draw se 
draw se 


break; 


case 5: 
draw se 
draw se 


break; 


case 6: 
draw se 
draw se 


break; 


case 7: 
draw se 
draw se 


break; 


t alpha(0.6); 


E -colour(¢ black); 


t_alpha(0.4); 


t colour(c dkgrav); 


tal pha (0.3); 


t_colour(c_blue); 


t_alpha(0.2); 


t_colour(c_orange); 


t_alpha(0.1); 


t_colour(c_yellow); 
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draw rectangle(0,0,700,700,false); 
//reset alpha 


draw set alpha(1); 
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80 Draw Rotating Shapes 
Draw rotating shapes using lines. 
Create Event: 
ang=0; 
Step Event: 
ang++; 


Draw Event: 

draw set colour(c yellow); 
size=150; 

//square 


xplace=200; 


yplace=200; 


xposl-lengthdir x(size,ang); 


vposl-lengthdir v(size,ang); 


xpos2=lengthdir x(size,ang490); 


vposż-lengthdir v(size,ang490); 


ypos3=lengthdir v(size,ang4180); 


xpos4=lengthdir x(size,ang+270); 


g 
g 
g 
g 
xpos3=lengthdir x(size,ang+180); 
g 
g 
g 


ypos4=lengthdir v(size,ang4270); 


draw line(xplace+xposl,yplace+ypos1l,xplace+xpos2, 
yplacetypos2), 


draw line (xplacetxpos2, yplacetypos2, xplacetxpos3, 


draw line (xplace-xpos3, yplacetypos3, xplacetxpos4, 


draw line (xplacetxpos4, yplacetypos4, xplacetxpos1, 
vplace-vposl); 
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//triangle 


xplace=400; 


yplace=400; 


xposl-lengthdir x(size,ang); 


vposl-lengthdir v(size,ang); 


xposż-lengthdir x(size,ang+120); 


xpos3=lengthdir x(size,ang4240); 


g 
g 
g 
vposż-lengthdir v(size,ang4120); 
g 
g 


ypos3=lengthdir y(size,ang+240); 


draw line (xplacetxpos1,yplacetypos1,xplacetxpos2, 
yplacetypos2): 


draw line (xplacetxpos2, yplacetypos2, xplacetxpos3, 
yplacetypos3): 


draw line (xplacetxpos3, yplacetypos3,xplacetxpos1, 
yplacetypos1): 


xplace=700; 


yplace=400; 


xposl-lengthdir x(size,ang); 


vposl-lengthdir v(size,ang); 


xposż-lengthdir x(size,ang472); 


vposż-lengthdir v(size,ang472); 


ypos3=lengthdir v(size,ang4144); 


xposd-lengthdir x(size,ang4216); 


ypos4=lengthdir v(size,ang4216); 


g 
g 
g 
g 
xpos3-lengthdir x(size,ang1144), 
g 
g 
g 
g 


xposs-lengthdir x(size,ang4288); 


187 


oss-lengthdir y(size,ang+288) ; 


aw line (xplacetxpos1, yplacetypos1, xp1 


lace-vpos3); 


lace+ypos5); 


lace+ypos2) ; 


lacetypos4): 


lacetypos1): 


aw line (xplacetxpos3, yplacetypos3, xpl 


aw line (xplacetxpos5, yplacetypos5, xp1 


aw line (xplacetxpos2, yplacetypos2, xp1 


aw line (xplacetxpos4, yplacetypos4, xpl 


acer 


ace: 


acer 


ace: 


l-Xpos3, 


l-xpos5, 


l-XpOs2, 


txpos4, 


acer 


-xposl, 
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81 Positional Audio 


Plavs audio from left or right speaker, depending on 
direction and distance. 


obj fire Create Event: 


audio play sound at(snd fire, x, y, 0, 20, 400, 
0.5 , true, 1); 


obj plaver Create Event: 
/// @description set up 


enum player state { 


idle, 


dir=player state.down; 
is moving-false; 
image speed-0.5; 
Step Event: 
/// @description keypress code 
if (keyboard check(ord('A'))) 
( 
dir-plaver state.left; 


is moving-true; 


else 


189 


if (kevboard check(ord('D'))) 


dir-player state.right; 
is moving-true; 
} 
else 
if (keyboard check(ord("W"))) 
( 
dir-plaver state.up; 
is moving-true; 
} 
else 
if (keyboard check (ord("S"))') 
{ 
dir=player state.down; 


is moving=true; 


else 


is moving-false; 


///movement 

if is moving 

{ 
switch (dir) 
{ 


case player Stare. up: 


190 


case player state.down? 
y += 4; 


break; 


case player state.left: 


case player state, rights 
x += 4; 


break; 


///animation 
if is moving 
( 
switch (dir) 
( 
case player _state.up: 
sprite index-spr walk up; 


break; 
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else 


Case player State .dównę 
sprite index=spr walk down; 


break; 


case player slate. leit: 
sprite index-spr walk left; 


break; 


Case player state.right: 
sprite index-spr walk right; 


break; 


switch (dir) 


( 


case player Statesup: 
sprite index=spr idle up; 


break; 


case player state.down: 
sprite index-spr idle down; 


break; 


Case player state.left: 


sprite andex=spr idle Lett; 
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break; 


case player state. right: 


sprite index-spr idle right; 


break; 


///Update Audio Position 


audio 1 


audio 1 


is 


is 


tener position(x, y, 


tener orientation (0, 
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82 Imploding Text Effect 


Implodes letters for a given string. 


obj example Create Event: 


mess-'This Is Some Example Text"; 


done=false; 


Step Event: 


if mouse check button pressed(mb left) && 


done==false 
{ 


done=true; 


var size-string length(mess) ; 


var array=array create (); 


var ang=360/size; 


var spacing=42; 


for (var i 


1; i < size+l; i 4-1;) 


( 


arravlil-string char at(mess,i); 


var 
inst-instanc 


“Create laver(irandom(room width),ir 
andom(room height), 'letters'',0bj letter); 


inst. 


let 


tertarget=50+i*spacing; 


inst. 


let 


ter=array[i]; 


obj_letter Step Event: 


ymiddle=room height/2; 


if point distance (x,y,lettertarget, ymiddle) >3 


( 


194 


move towards point (lettertarget, vmiddle,2) 


else 


x-lettertarget; 
y=ymiddle; 
} 


Draw Event: 


draw set halign(fa center); 


draw set valign(fa middle); 


draw text(x,v,letter); 
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83 Laser Collision Effect 


A laser that collides with a given instance and makes 
an effect. 


obj plaver Create Event: 
ang-0; 


dist-0; 


Step Event: 


ang-point direction(x,v,mouse x,mouse v); 


dist-distance to point (mouse x,mouse v); 


Draw Event: 


draw self () 7 


draw set font (font text) 


draw text(x,v-50,ang); 


draw text (x,v-100,dist); 


NG ang 


found-false; 


for (detect = 0; detect < dist+64; detect 4-1;) 


{ 


xpos-x-lengthdir x(detect,ang) ; 


ypos-ytlengthdir y (detect, ang); 


LAW = 


1r 
collision line(x,v,xpos,vpos,obj crate,true,true) 


( 
found-true; 


break; 


} 


if found 
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effect Create. abovelet spark, xpos; ypos;,.2,;C red); 
draw_set_colour(c_yellow); 
draw line width(x,v,xpos,vpos,7); 
draw Set colour(e red), 
draw line width(x,y,xpos, ypos, 5); 


draw set colour(c white); 


draw line width(x,y,xpos, ypos, 3); 


197 


84 Pop Up Message 


Message pop up that displavs a random message on 
mouse interaction. 


obj mushroom Create Event: 


active=false; 


mess[0]="This is\na mushroom"; 


mess[1]="Try it fried\nwith eggs"; 


mess [2]="Hello\nWorld"; 
mess [3]="Go\nAway"; 
Step Event: 


if instance position(mouse x,mouse y,id) and 
active==false 


{ 
active=true; 


toshow=irandom(array length(mess)-1); 


text=mess [toshow] ; 
} 
else if linstance position(mouse x,mouse y,id) 
( 
active-false; 


} 


Draw Event: 
draw self(); 
if active 
( 
draw sprite(spr bubble,0,mouse x,mouse v); 


draw set colour(c green); 
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draw set font(font text); 


draw set halign(fa center); 


draw set valign(fa middle); 


draw text (mouse x-90,mouse v-100,text); 
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85 Skill Points 


Allows plaver to add to their skill points. 
obj button Create Event: 


image speed-0; 
image index-0; 
Step Event: 


if mouse check button pressed(mb left) && 
position meeting(mouse x, mouse v, id) 


( 


if global.upgrades>0 && 
global.stats[my id,2]<10 


( 
//upgrade 


global .upgrades—--; 


global.stats[my id,2]++; 


} 


Draw Event: 
draw self(); 


draw set valign(fa middle); 


draw set halign(fa left); 


draw text (50,mv id*100,string hash to newline(glo 
bal.stats[my id,11)); 


for (var loop=1; loop < 11; loop 4- 1) 
{ 


draw sprite(spr info,1,250+loop*40,my id*100) 
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for (var loop=1; loop < global.stats[my id,2]+1; 
loop += 1) 


{ 


draw_sprite(spr_info,0,250+loop*40,my id*100) 


draw set halign(fa center); 
if global.stats[my id,2]<10 66 global.upgrades>0 
{ 

image index=0; 

draw text(x,v, 'Available'); 


} 


else if global.stats[my id,2]==10 
{ 
image index=1; 


draw text(x,y, "Maxed Out"); 


else 


image index-1; 

draw text(x,v, "Not Available"); 
} 
obj setup Create Event: 


for (var i=l; 1<6; 14-1) 


{ 


button=instance create layer (870,100*1,"Instances 
",obj button); 


button.mv id-i; 
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lobal.stats[1,1]="Magic"; 


lobal.stats[1,2]=6; 


lobal.stats[2,1]="Kindness"; 


obal.stats[2,2]=8; 


lobal.stats[3,1]="Evilness"; 


lobal.stats[3,2]=2; 


obal.stats[4,1]="Strength"; 


lobal.stats[4,2]=3; 


obal.stats[5,1]="Wisdom"; 


lobal.stats[5,2]=0; 


obal.stats[5,1]="Charisma"; 


lobal.stats[5,2]=0; 


aQ Q Q Q Q Q Q Q Q Q Q Q Q 


lobal.upgrades=6; 


Keypress R Event: 


if keyboard check released(ord("R")) 
{ 


game restart(); 


} 


Draw Event: 


draw set halign(fa left); 


draw set font(font text); 


draw text (100,650, "You Have 
"+string(global.upgrades)+" Upgrade Points\nPress 
R To Restart Example\nLeft Tap Button To 
Upgrade") ; 
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86 Depth Based Movement 


Allows plaver to go in front of and behind instances, 
based on v position. 


obj plaver Create Event: 
/// @description set up 


enum player state { 


idle, 


dir-plaver state.down; 
is moving-false; 
image speed-0.5; 
Step Event: 
/// @description keypress code 
if (keyboard check(ord('A'))) 
( 
dir=player state.left; 
is moving-true; 
} 
else 
if (kevboard check(ord('D'))) 
( 


dir-plaver state.right; 
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is moving-true; 
} 
else 
if (keyboard check(ord('W'))) 
( 
dir-plaver state.up; 
is moving-true; 
} 
else 
if (keyboard check (ord("S"))) 
{ 
dir=player state.down; 


is moving-true; 


else 


is moving-false; 


///movement 

if is moving 

{ 
switch (dir) 
{ 


case 'player.state.up: 


204 


if lposition meeting(x,v- 
4,0obj solid base) y -= 4; 


break; 


case plaver state.down: 


SE, 
position meeting(x,y+4,obj solid base) y += 


break; 


case player state. lere: 


if lposition meeting (x- 
4,y,obj solid base) x -= 4; 


break; 


case player state.right: 


IE] 
position meeting(x+4,y,obj solid base) x += 


break; 


} 


depth=-y; 


///animation 
if is moving 
{ 
switch (dir) 
{ 
case player _ state.up: 


sprite index-spr walk up; 
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else 


break; 


case player slate. down: 
sprite index-spr walk down; 


break; 


case player State. eres 
sprite index-spr walk left; 


break; 


case player state<cright: 
sprite index-spr walk right; 


break; 


switch (dir) 


( 


case player State.up: 
sprite index-spr idle jip; 


break; 
case player state.downs 
sprite index=spr idle down; 


break; 


case player state.left: 
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sprite index-spr idle left; 


break; 


case plaver state.right: 
sprite index-spr idle right; 


break; 


} 


obj elements parent: 


instance create layer(x,y,"Instances",ob] solid b 
ase); 


depth=-y; 
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87 Partv Mechanics 


This allows an object to follow another object, whilst 
keeping a distance. 


obj follow Step Event: 


if global.selected==1 
( 


xtarget-obj plaver 1.x; 


ytarget=obj_player_1.y; 


if global.selected== 


{ 


xtarget-obj plaver 2.x; 


ytarget=obj player 2.y; 
} 


if global.selected==3 


{ 


xtarget=obj player 3.x; 


vtarget-obj player 3.y; 


if point distance (x,y,xtarget, ytarget) >8 


{ 


move towards point (xtarget, ytarget, 6); 


else 
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x-xtarget; 


v-vtarget; 


obj selected control 


Create Event: 


global.selected=1; 


Step Event: 


if keyboard check released (ord ("1") ) 


{ 


global.selected-1; 


global.move speed-4; 


} 
if keyboard check released(ord("2") ) 


{ 


global.selected=2; 


global.move_speed=6; 


} 
if keyboard check released (ord("3") ) 


{ 


global.selected=3; 


global.move_speed=4; 

} 

obj_player_parent Create Event: 
/// @description set up 


enum player state { 


idle, 


up, 
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down, 

left, 

right 

} 
dir=player state.down; 
is moving-false; 
image speed=0.5; 
global.move_speed=4; 
Step Event: 


/// @description keypress code 


is moving-false; 


if global.selected!=my id exit; 


if (keyboard_check(ord("A") )) 
{ 
dir=player state.left; 
is moving=true; 
} 
else 
if (keyboard check(ord('D'))) 
( 
dir=player_state.right; 
is moving-true; 
} 
else 
if (keyboard check(ord('W'))) 
( 


dir-plaver. stave. up; 
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is moving-true; 
} 
else 
if (keyboard check (ord(™s™))) 
{ 
dir=player state.down; 


is moving=true; 


else 


is moving-false; 


///movement 

if is moving 

{ 
switch (dir) 
{ 


case player _state.up: 


y -= global.move speed; 


break; 
case player state.down: 
y += global.move_speed; 


break; 


case player state.left: 


x -= global.move_ speed; 


211 


break; 


case player state.right: 


x += global.move speed; 


break; 


depth=-y; 


///animation 


if is moving 


( 


switch (dir) 


( 


Case player: Stave. ups 
sprite index-spr walk up; 


break; 


case player state. down; 
sprite index=spr walk down; 


break; 


case player state.left: 
sprite index-spr walk left; 


break; 
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case plaver state.right: 
sprite index-spr walk right; 


break; 


else 


switch (dir) 

( 
case player stare. ups 
sprite index-spr idle up; 


break; 


case player. slate. down: 
sprite index=spr idle down; 


break; 


case player state. Left: 
sprite index-spr idle left; 


break; 


case player ‘state right: 
Sprite. andex=spr idle right, 


break; 


} 


Draw Event: 
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if mv id-1 col-c red; 


if MY. id=2 col=c_green; 


if my_id=3 col=c blue; 


draw sprite ext(sprite index,image index,x,y,1,1, 
O,co1,1); 


obj plaver 1 Create Event: 
mv id-1; 

event inherited(); 

obj plaver 2 Create Event: 
mv id-2; 

event inherited(); 

obj plaver 3 Create Event: 
mv id-3; 


event inherited(); 
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88 Card Battle 


Compare various manta against an enemv. 


obj setup Create Event: 
global,cards-ds list create (); 

for (var loop = 0; loop < 20; loop += 1) 
{ 


global.card[0,loop]=loop;//id - used for 
sprite 


global.card[1,loop]=irandom range(1,10);//set 
strength 


global.card[2,loop]=irandom range(1,10);//set 
speed 


global.card[3,loop]=irandom range(1,10);//set 
magic 


global.card[4,loop]=irandom range(1,10);//set 


gold 


ds list add(global.cards, loop) ;//set up deck 
} 


ds. list Shuffle (global <Cards) 7 


//create player's hand 


global.plaver hand-ds list create(); 


repeat (10) 
( 


as list add(global.plaver hand,global.cards [| 
01); 


show debug message (global.cards[|0]); 


ds list delete(global.cards,0); 
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//create enemy's hand 
global.enemy hand-ds list create(); 
repeat (10) 

( 


as list add(global.enemv hand, global.cards [| 
01); 


show debug message (global.cards[|0]); 


ds list delete(global.cards,0); 


lobal.game round-0; 


lobal.can show-false; 


lobal.enemy=0; 


g 
g 
global.player=0; 
g 
g 


lobal.draw=0; 


room goto (room game); 


obj plav Create Event: 


message "Press 1 To Play Stength - 2 For Speed - 
3 For Magic - 4 For Gold"; 


Step Event: 
with (obj play) { 


///compare plays 


plaver-global.plaver hand[|global.game_round]; 


enemy=global.enemy hand[|global.game_round]; 


//play 1 


if keyboard check pressed(ord("1")) && 
alarm[0]==-1 


( 
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ser check play (global.card[1,player],global.card[ 
1,enemv)); 


} 


//play 2 


if keyboard check pressed(ord('2')) && 
alarm[0]==-1 


{ 
ser: check play (global .card|2,player],gqlobal card 
2,enemy]); 


} 


//play 3 


if keyboard check pressed(ord("3")) && 
alarm[0]==-1 


{ 
scr check play (global.card[3,player],global.card[ 
3,enemv)); 


} 


//play 4 


if keyboard check pressed(ord("4")) && 
alarm[0]==-1 


{ 


scr Check: play (global.card[4,player],global.card[ 
4,enemy]); 


} 
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} 
Alarm 0 Event: 


/// @description alarm: 


global.can_show=false; 


message="Press 1 To Play Stength - 2 For Speed - 
3 For Magic - 4 For Gold"; 


global.game round++; 


if global.game round==10 
room goto(room game over); 


Draw Event: 


araw set font (front text); 


draw text(500,10,"Player "+string(global.player) 
+" Enemy "+string(global.enemy)+" Draws 
"+string(global.draw)); 


draw text (800,820,message); 


draw text (380,50, "Round 
"+string(global.game round+1)+" Of 10"); 


///draw cards 


//draw player 


//draw card bg 


draw set colour(c teal); 


draw roundrect (40,240,260, 700,false), 
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//draw a border 
draw set colour(c white); 


draw roundrect (42, 242,258, 698, false); 


//draw main card 


draw sprite(spr characters,plaver,150,350); 


//draw stats 


draw set halign(fa center); 


draw set colouric. black); 


t (150,500, "Strength: 
+string(global.card[1,player])); 


„text (150,550, “Speed: 
+string(global.card[2,player])); 


t(150,600,"Magic: 
+string(global.card[3,player])); 


draw_text (150,650, "Gold: 
+string(global.card[4,player])); 


//draw enemy 

if global.can show 

( 

//draw card bg 

draw set_colour(c_green); 


draw roundrect (340,240,560, 700, false); 


//draw a border 
draw set colour(c white); 


draw roundrect (342,242,558,698, false); 
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//draw main card 


draw sprite(spr characters, enemy, 450,350); 


//draw stats 


draw set halign(fa center); 


draw set colour(c black); 


t (450, 500, "Strength: 
+string(global.card[1,enemy])); 


t (450,550, "Speed: 
(global.card[2,enemy])); 


E: t (450,600, "Magic: 
+string(global.card[3,enemy])); 


draw text (450,650, ''Gold: 
+string(global.card[4,enemy])); 
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89 Text Explode 


An exploding text effect. 


obj letter Draw Event: 


draw text(x,v,letter); 


obj example Create Event: 

can see-true; 

shrinking-false; 

scale-1; 

mess="This Is Some Example Text"; 


xmiddle=room width/2; 


ymiddle=room height/2; 
done=false; 
Step Event: 
if mouse_check button pressed(mb left) && can_see 
{ 
can see=false; 
} 


if can_see==false 


if can see—-false and scale<=0 && done==false 
( 
done-true; 


var size-string length(mess); 


var array=array create (); 
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var ang-360/size; 


for (var 


( 


arravlil-string char at(mess,i); 


var 


inst-instance create layer (xmiddle, ymiddle, 
tter); 


rs",obj let 


insi 


inst 


ins 


if mouse check button (mb right) 


( 


i= 1; i < sizet+l; 


.letter-array[i], 
.direction=ang*i; 


. speed=1; 


room_restart(); 


} 


Draw Event: 


draw_set_ha 


lign(fa center); 


draw set valign(fa middle); 


if scale>0 


Tlette 


draw text ext transformed (xmiddle, ymiddle,mess, 80 


,300,scale,scale,0); 
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90 Branching Dialogue 
Text interaction with a choice of options. 


obj button one Draw Event: 


if global.diag[global.message,2]!="" 


( 


var 
width-string width (global.diag[global.message,2]) 


r 


if width>50 // adjust image size if a long 
text option 


{ 
var size=(250+(width-50) ) /250 
image xscale=size; 

} 


draw_self(); 


draw _set_font(font_message); 
draw set halign(fa center); 


draw set valign(fa middle); 


draw set colour(c black); 


draw text(x,y,global.diag[global.message,2]); 


} 


Left Mouse Button Released Event: 


{ 
global.gold+=1000; 


} 


global.message=global.diag[global.message, 4]; 


obj_button_two Draw Event: 


if global.diag[global.message,3]!="" 


223 


var 
width-string width(global.diag[global.message, 3] ) 


LA 


if width>50 


( 


} 


var size—(250-(width-50))/250 


image xscale-size; 


draw self(); 


draw se 


draw set val 


draw set 


t font(font message); 
draw set halign(fa center); 
lign(fa middle); 


E colour (c_black); 


draw text(x,y,global.diag[global.message,3]); 


} 


Mouse Left Button Released Event: 


global.message=global.diag[global.message,5]; 


obj diag set up and splash Create Event: 


///set up array to hold data 


// 1 question 

// 2 answer a 

// 3 answer b 

// 4 answer a target [0 is none] 

// 5 answer b target [0 is none] 
global.diag[1,1]="Are you in a good mood?"; 
global.diag[1,2]="Yes, I'm in great mood."; 
global.diag[1,3]="No, I'm sad."; 
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global.diag[1,4]=2; 

global.diag[1,5]=3; 

global.diag[2,1]="That's great!\nWould you like\ 
nsome cheese?"; 

global.diag[2,2]="Yes, I love cheese."; 
global.diag[2,3]="No. I'll pass."; 
global.diag[2,4]=4; 

global.diag[2,5]=5; 

global.diag[3,1]="Too bad.\nCan I sing\nyou a 
song?"; 

global.diag[3,2]="Yes. Sing me a\nshanty song."; 
global.diag[3,3]="No. I'd rather you didn't."; 
global.diag[3,4]=6; 

global.diag[3,5]=7; 

global.diag[4,1]="Brie or stilton?"; 
global.diag[4,2]="Brie, please."; 
global.diag[4,3]="Stilton, please."; 
global.diag[4,4]=10; 

global.diag[4,5]=8; 

global.diag[5,1]="How about some gold?"; 
global.diag[5,2]="Yes, i'm after gold."; 
global.diag[5,3]="No, i have enough already."; 
global.diag[5,4]=11; 

global.diag[5,5]=14; 
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global.diag(6,1) 

nWant some rum?"; 
global.diag[6,2]="Yes. 
global.diag[6,3]="No. 
global.diag[6,4]=15; 
global.diag[6,5]=12; 
global.diag[7,1]= 
global.diag[7,2]="Yes. 
global.diag[7,3]="No. 
global.diag[7,4]=9; 
global.diag[7,5]=13; 
global.diag[8,1]="Yuck! 
restart]"; 
global.diag[8,2]="" 
global.diag[8,3]="" 
global.diag[8,4]=0; 
global.diag[8,5]=0; 
global.diag[9,1]="Awes 
to restart]"; 
global.diag[9,2]="" 
global.diag[9,3]="" 
global.diag[9,4]=0; 
global.diag[9,5]=0; 


global.diag[10,1]="Gre 
restart]"; 


="Yo ho ho &\na bottle of rum.\ 


Hmm rum."; 


I don't drink."; 


"OK. Want to go fishing?"; 


Sounds good!"; 


Fishing is boring."; 


I prefer brie.\n[r to 


I'll get mv rod.\n[r 


ome! 


at choice!\n[r to 


226 


global .diag(10,2)-'' 

global.diag[10,3]="" 

global.diag[10,4]=0; 

global.diag[10,5]=0; 
global.diag[11,1]="Here's 1,000 coins.\n[r to 
restart]"; 

global.diag[11,2]="" 

global.diag[11,3]="" 

global.diag[11,4]=0; 

global.diag[11,5]=0; 
global.diag[12,1]="Probably for the best!\n[r to 
restart]"; 

global.diag[12,2]="" 

global.diag[12,3]="" 

global.diag[12,4]=0; 

global.diag[12,5]=0; 

global.diag[13,1]="OK be boring then!\n[r to 
restart]"; 

global.diag[13,2]="" 

global.diag[13,3]="" 

global.diag[13,4]=0; 

global.diag[13,5]=0; 

global.diag[14,1]="No gold! Your choice.\n[r to 
restart)"; 

global.diag[14,2]=""; 


227 


global.diag[14,3]=""; 


global.diag[14,4]=0; 


global.diag[15,1]="Don't drink too much!\n[r to 


lobal.diag[15,2]="Continue"; 


lobal.diag[15,3]=""; 


o restart]"; 


obal.diag[16,4]=0; 


lobal.diag[16,5]=0; 


global.message=1; 


global.gold=0; 


room goto (room dialogue), 


obj show message Step Event: 


if kevboard check released(ord('R')) 


( 


game restart(); 
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Draw Event: 


draw self(); 


draw se 
draw set 


draw set 


draw set 


draw text(x,v,global 


t font(font message big); 


CO 


lour (c_b 


lign(fa center); 
lign(fa middle); 


lack); 


.diaglglobal.message,1)); 
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91 Marquee Text 
Scrolling Text Message Effect. 


Create Event: 
mess="This Is Some Example Text"; 
pos=0; 


text="" ; 


to_show=5; 


xmiddle=room width/2; 


ymiddle=room height/2; 
gap=""; 
repeat (to_show) 
( 
gapt="_"; 
} 


mess=gap+mess+gap; 


size=string length (mess); 


alarm[0]-game get speed (gamespeed fps) /2; 


Step Event: 


text=string copy (mess,pos,5); 


Alarm 0 Event: 
alarm[0]-game get speed (gamespeed fps) /2; 


pos++; 
if pos>size pos=0; 
Draw Event: 


draw set halign(fa center); 


draw set valign(fa middle); 


draw text (xmiddle, ymiddle, text); 
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92 Avatar Creator B 


An alternative avatar creator that allows user to save 


image as JPG file. 

The main code for saving part of the screen to a JPG 
file: 

file = get save filemame('dmage|*« jpg", ""); 

if file != "" 


( 


file text open read(file); 


} 
screen save part (file,50,0,600,650); 
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93 Create Level From Text File 


Generates a level based on data in a text file. 


Create Event: 


num-0; 


file-file text open read("level.txt"); 


while (lfile text eof(file)) 
( 


str[num] = file text read string(file); 


file text readin(file); 
num++; 


} 
file text close (file); 


grid siże-32; 


line=(str[i]); 


line width-string length (line); 
for (j = 0; j < line width+1l; j+= 1) 
{ 


if string char at(line, j)=="#" 
instance: create. Layer (164) grad size,16+i*grid si 
ze,"Instances",obj wall); 


if string Char at(line,: j)=="." 
instance create layer (16+j*grid size,16+i*grid si 
ze,"Hole",obj hole); 


if string char at(line, j)=="$" 
instance create layer(16+]*grid size,16+i*grid si 
ze,"Instances",obj block); 
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if string Char at(line, j)=="@" 
instance create layer (16+j*grid_size,16+i*grid_si 


ze, "Instances",obj player); 


} 
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94 Enemv Shooting Svtem 


An enemy shooting system that fires more quickly as 
the player gets closer. 


Create Event: 

value=100; 

dist=0; 

alarm[0]=value; 

Step Event: 
dist=distance to object (ob] player); 
value=relerp(0,room width,dist,10,240); 
Alarm 0 Event: 


alarm[0]=value; 


inst-instance create layer(x,y,"bullet",obj bulle 
t); 


inst.hspeed=-4; 


234 


95 Dropping Effect 


An effect svstem that starts at the top of the screen and 
moves down. 


Create Event: 
ypos=0; 


yposlimit=room height+40; 


Step Event: 

ypost=4; 

if ypos>yposlimit instance destroy(); 

repeat (50) 

{ 
effect=choose(ef firework,ef flare,ef smokeup); 
col=choose(c_red,c_yellow,c_green); 
size=irandom(4)+1; 
xpos=irandom range (0,room width); 


effect create above (effect,xpos, ypos,size,col); 
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96 Plaver Path 


Allows player to draw point of a path and get an 
instance to follow the path. 

Create Event: 

path example-path add(); 

has started-false; 


smooth-false; 


Step Event: 
if mouse check button pressed(mb left) 


( 


path add point (path example,mouse x,mouse_y,5); 
} 


if lhas started Se 
path get length (path example) >5 


( 


path start (path example,50, 
path action reverse, true); 


has started-true; 
} 
if keyboard check pressed(ord("K") ) 
{ 
smooth=! smooth; 
if smooth 
{ 
path set kind(path example,true); 


path end(); 


path start (path example,50, 
path action reverse, true); 
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path set kind(path example, false); 


path end(); 


path start (path example,50, 
path action reverse, true); 


} 

} 

if mouse check button pressed(mb right) 
room restart(); 


} 


Draw Event: 
draw_self(); 


draw path(path example,x,y,true) ; 
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97 Enemv Movement 


An enemy that changes direction every 5 seconds, 
away from the player's position. 


obj enemv Create Event: 


speed=2; 


alarm[0]-game get speed(ġamespeed fps) *5; 
Step Event: 


move_wrap (true, true, 0); 


Alarm 0 Event: 


alarm[0]=game_get_speed(gamespeed fps) *5; 


direction-point direction(obj player.x,obj player 
-Yr X,Y)? 
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98 Compass Points 


Draws angle between instances as points on a compass. 


Script: 
function scr direction value (source, target) 


{ 


angle-point direction (source.x,source.y,target.x, 
target.y); 


angle=round(angle / 45) * 45; 
return angle; 
} 
Script: 
function scr direction text (source, target) 


{ 


angle=point direction (source.x, source.v,target.x, 
target.y); 


angle=round(angle / 45) * 45; 
if angle=0 
{ 
return "East"; 
} 
else if angle=45 
l 
return "North East"; 
} 
else if angle=90 
{ 
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return "North"; 


} 


else if angle=135 
{ 


return "North West"; 


} 


else if angle=180 
{ 


return "West"; 


} 


else if angle=225 
{ 


return "South West"; 


} 


else if angle=270 
{ 


return "South"; 


} 


else if angle=315 
{ 

return "South East"; 
else 


return "Fast"; 


) 


obj plaver Create Event: 
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near=false; 


Step Event: 


if keyboard check (ord("A") ) 


X-=5; 


X+=5; 


if keyboard check(ord("W")) 
( 
y-=5; 
} 
if keyboard check(ord("S")) 
{ 
yt=5; 
} 
Draw Event: 
draw self(); 


draw text (200,200,scr direction text(obj player,o 
bj enemv)); 


draw sprite(spr compass,0,130,room height-130), 


var 
ang-scr direction value(obj plaver,obj enemv); 


draw sprite ext(spr arrow,0,130,room height- 
130,1,1,ang,c white,1); 
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99 Mine Weapon 


A mine weapon that circles the plaver, but moves 
towards enemy if they get close. 


obj mine Create Event: 


state="rotating"; 
ang=0; 

dist From player=120; 
attack distance=250; 


Step Event: 


—" 


if state 


{ 


rotating" 


angt+; 


x=obj_player.x+lengthdir_x(dist_from_player,ang); 


y=obj_player.y+lengthdir_y(dist_from_player,ang); 
j 
if instance exists(obj enemv) 
{ 
nearest-instance nearest(x,v,obj enemy) 
if point _distance(x,y,nearest.x,nearest.y)<attack distance 
{ 
target=nearest; 


—" 


state="attacking"; 


} 


if state="attacking" 


{ 


move towards point(target.x,target.V,3); 
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if instance position(x,y,target) 


{ 
with target instance destrov(); 
state="returning"; 
} 
j 
if state="returning" 
{ 


move towards point(obj plaver.x,obj plaver.v,3); 
if point distance(x,v,obj plaver.x,obj player.y)<dist from player 
{ 
angle-point direction(obj plaver.x,obj plaver.v,x,V); 
ang=angle; 


state- "rotating": 


j 

Draw Event: 

draw self(); 

draw set colour(c green); 


draw _ text (x, y-50, state); 


if state="rotating" 
draw circle(x,y,attack distance, true); 
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100 Old Film Effect 


Uses an effect laver to create an old film overlav to the 
game. 


No code. 
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101 Barrel Dropper 


Drops barrels the plaver needs to avoid, slowlv getting 
more frequent and faster. 


obj spawn Create Event: 


alarm amount=game_get_speed(gamespeed tos) *57 


alarm[0]=alarm_amount; 
drop_speed=1; 
Alarm 0 Event: 


alarm amount-=0.05; 


alarm[0]=alarm amount; 


drop_speed+=0.05; 


var xpos-irandom range (100,room width-100); 


instance create laver(xpos,- 
100, 'Instances'',0bj barrel, 


( 
vspeed > drop Speed 
1); 


show debug message ("Spawned") ; 
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